当有数字和汉字或其它符号的时候我们用正则来提取内容就很方便 。
下面是代码分享
Sub 排除数字()
Dim sr As Object 申明正则变量
Dim wn, wn2
Set sr = CreateObject("vbscript.regexp") 创建正则对象
wn = [a1].Value
With sr 简化代码
.Global = True 搜索全部字符串
.Pattern = "\d" 匹配数字
wn2 = .Replace(wn, "") 匹配到的数字全部清空，只留下未匹配到的字符串
End With
End Sub
－－－－－－－－－－－－－－－－
Sub 排除汉字()
Dim sr As Object 申明正则变量
Dim wn, wn2
Set sr = CreateObject("vbscript.regexp") 创建正则对象
wn = [a1].Value
With sr 简化代码
.Global = True 搜索全部字符串
.Pattern = "\D" 匹配非数字 注意：这里一定是大写字母
wn2 = .Replace(wn, "") 清空匹配成功正则字符串
End With
End Sub