最乱的名字提取！！！

一指禅

原帖由 sqxlmy 于 2011-5-8 19:33 发表
给出了两个自定义函数，请参考

学习一下
取中文
Function qzxm(ran As Range)
    With CreateObject("VBSCRIPT.REGEXP")
        .IgnoreCase = True
        .Global = True
        .Pattern = "[0-9a-zA-Z\-]"
        qzxm = .Replace(ran.Value, "")
    End With
End Function

悟空师弟

B2：=MID(A2,MATCH(0,IFERROR(-(MID(A2,ROW($1:$99),1)&1),),),99-COUNT(-(MID(A2,ROW($1:$99),1)&1)))
C2：=SUBSTITUTE(A2,B2,)
工作簿1.rar (3.72 KB, 下载次数: 8)

2011-5-9 09:57 上传

点击文件名下载附件

悟空师弟

22楼公式简化一点：
=MID(A2,MATCH(,0/(MID(A2,ROW($1:$99),1)>"A"),),99-COUNT(-(MID(A2,ROW($1:$99),1)&1)))

wangyuhu

不算最乱，还轮不到最
基础方法：查找替换法
查找0，替换空
查找1，替换空
....
查找9，替换空
查找-，替换空

有点：简单易理解，老少皆宜
缺点：对新增加的数据就无能为力了

fjdky

学习悟空老师的公式。
>"A"改成>="A"会更好，英文名字第一个字母为A时不会漏掉。

chen_pinghui

=LEFT(A2,SMALL(IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))<57,ROW(INDIRECT("1:"&LEN(A2))),LEN(A2)),1)-1)
数组，仅针对本帖附件。
如果单元格的中间是数字，头尾是文字或字母，则不能提取数字后的文字字母，楼主的数组也不能提取。

twoleavs

1、将数据复制到word
2、在word中，点击“编辑”，“替换”，在查找内容右边输入 [0-9]  ，勾选“使用通配符”点击“全部替换”。同样方法将 -  也替换掉
3、替换后的数据复制回excel
有时将excel和word并用会起到很好的效果。

悟空师弟

原帖由 fjdky 于 2011-5-9 10:25 发表
学习悟空老师的公式。
>"A"改成>="A"会更好，英文名字第一个字母为A时不会漏掉。

感谢指正！

乐乐公主

学习了，三人行必有我师焉

枫叶乘风

公式好长的哦。。。。