提取中文名称-求助

guolecd

     名称  仅显示中文名称
  A1_3D_PC医卫街中段HLDF_H  医卫街中段
  A1_CQ南城墙二HLS_X  南城墙二
  A1_PC华田苑二期1HLE_W  华田苑二期1
  A1_PC华田苑二期2HLE_W  华田苑二期2
  A1_PC华田苑二期3HLE_W  华田苑二期3

约定的童话

Sub 提取汉字()
    Dim regEx As Object
    Dim i As Double
    Set regEx = CreateObject("VBSCRIPT.REGEXP")
    regEx.Pattern = "[^\u4e00-\u9fa5]"
    regEx.IgnoreCase = True
    regEx.Global = True
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        Cells(i, 2).Value = regEx.Replace(Cells(i, 1), "")
    Next i
    Set regEx = Nothing
End Sub
后面缺数字的自己补一下吧....

solextrade

开个数组火车吧

=MID(A2,MATCH(,0/(CODE(MID(A2,ROW($1:$99),1))>999),),LOOKUP(,0/((CODE(MID(MID(A2,MATCH(,0/(CODE(MID(A2,ROW($1:$99),1))>999),),99),ROW($1:$99),1))<60)+(CODE(MID(MID(A2,MATCH(,0/(CODE(MID(A2,ROW($1:$99),1))>999),),99),ROW($1:$99),1))>999)),ROW($1:$99)))

Look我在这

=LEFT(MID(A2,MATCH(1=1,MID(A2,ROW($1:$99),1)>"Z",),99),MATCH(1,(CODE(MID(MID(A2,MATCH(1=1,MID(A2,ROW($1:$99),1)>"Z",),99),ROW($1:$99),1))<123)*(CODE(MID(MID(A2,MATCH(1=1,MID(A2,ROW($1:$99),1)>"Z",),99),ROW($1:$99),1))>64),)-1)
没啥技术含量，就是凑的。

guolecd

约定的童话 发表于 2019-9-17 11:14
Sub 提取汉字()
    Dim regEx As Object
    Dim i As Double

多谢帮忙

guolecd

Look我在这 发表于 2019-9-17 11:32
=LEFT(MID(A2,MATCH(1=1,MID(A2,ROW($1:$99),1)>"Z",),99),MATCH(1,(CODE(MID(MID(A2,MATCH(1=1,MID(A2,ROW ...

这么长，费心啦
非常感谢

nsxlyj

=CONCAT(IF(LENB(MID(A2,ROW($1:$29),1))=2,MID(A2,ROW($1:$29),1),""))
数组公式

guolecd

solextrade 发表于 2019-9-17 11:26
开个数组火车吧

=MID(A2,MATCH(,0/(CODE(MID(A2,ROW($1:$99),1))>999),),LOOKUP(,0/((CODE(MID(MID(A2,M ...

多谢您的帮助

jivy1212

观察了下看似有规则实际无规则的，起头是汉字，但结束有可能是数字有可能汉字，更坑的是有取“一期1”这情况，鬼知道应该是数字结束还是汉字结束呢？？

guolecd

nsxlyj 发表于 2019-9-17 11:41
=CONCAT(IF(LENB(MID(A2,ROW($1:$29),1))=2,MID(A2,ROW($1:$29),1),""))
数组公式

多谢
这个挺简单的