[已解决]怎么批量去除姓名后面的非汉字

刘伟

如下列姓名后面有不规则数字、字母、括号等，由于有上万个有什么办法可以在Excel里批量去除？

A列

张三3
王五1
李四（4）
王小二（W）

最佳答案

月排行榜 / 总排行榜

su11wei18

2011-1-5 15:38

工作簿1.rar (3.28 KB, 下载次数: 20)

2011-1-5 15:38 上传

点击文件名下载附件
=LEFT(A1,MATCH(0,0/(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)<"啊"),)-1)

跳转到最佳答案楼层

su11wei18

工作簿1.rar (3.28 KB, 下载次数: 20)

2011-1-5 15:38 上传

点击文件名下载附件
=LEFT(A1,MATCH(0,0/(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)<"啊"),)-1)

chensir

=LEFTB(A1,SEARCHB("?",A1)-IF(ISNUMBER(FIND("（",A1)),3,1))

刘伟

谢谢已解决！

yuhe0008

=LEFT(A1,IF(MID(A1,3,1)>="啊",3,2))

chensir

yuhe0008 发表于 2011-1-5 15:59
=LEFT(A1,IF(MID(A1,3,1)>="啊",3,2))

名字如果四个字或以上公式会有点问题

ksldy888

我能力不够，可以将最佳答案讲解一下不？先谢了。

wml514166604

学习一下

lpsh1985

1. Function GetText(str As String)
   
2.    Dim RegEx As Object
   
3.    Set RegEx = CreateObject("vbscript.regexp")'调用正则表达式
   
4.    With RegEx
   
5.    .Global = True
   
6.    .Pattern = "[!-~]"  '关键处1
   
7.    End With
   
8.    GetText = RegEx.Replace(str, "")    '关键处2
   
9. End Function

复制代码

如何用正则表达式编写自定义提取汉字的函数? http://www.exceltip.net/thread-4772-1-1-232.html