前言：
此刻小伙伴们对“正则匹配所有汉字”大体比较看重，大家都想要学习一些“正则匹配所有汉字”的相关知识。那么小编在网上搜集了一些对于“正则匹配所有汉字””的相关内容，希望小伙伴们能喜欢，看官们快快来了解一下吧！当有数字和汉字或其它符号的时候我们用正则来提取内容就很方便 。
下面是代码分享
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
版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #正则匹配所有汉字
