推荐 原创 视频 Java开发 iOS开发 前端开发 JavaScript开发 Android开发 PHP开发 数据库 开发工具 Python开发 Kotlin开发 Ruby开发 .NET开发 服务器运维 开放平台 架构师 大数据 云计算 人工智能 开发语言 其它开发
Lambda在线 > 我的Excel > 每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

我的Excel 2017-10-16

感谢每一个朋友的关注与支持,感谢所有的不离不弃,一路同行!

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

导读

前两天分享了一篇关于VBA与正则表达式的文章,里面写了如何利用VBA与正则表达式去除字符串中除中文之外的其他字符,只保留中文。

这两天有朋友问我如果要只保留数字或只保留字母该怎么办?所以今天村长再来补充一下其他正则表达式在VBA中的应用。

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

按ALT+F11弹出VBE窗口,然后新建模块,如下图:

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

只保留中文的代码如下:

Function ZW(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^\u4e00-\u9fa5]"

  a.IgnoreCase = True

  a.Global = True

  ZW = a.Replace(i, "")

  Set a = Nothing

End Function


只保留数字的代码如下:

Function SZ(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^0-9]"

  a.IgnoreCase = True

  a.Global = True

  SZ = a.Replace(i, "")

  Set a = Nothing

End Function


只保留字母的代码如下:

Function ZM(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^A-Z^a-z]"

  a.IgnoreCase = True

  a.Global = True

  ZM = a.Replace(i, "")

  Set a = Nothing

End Function


只保留数字和字母的代码如下:

Function SZZM(i As String) As String

  Dim a As Object

  Set a = CreateObject("VBSCRIPT.REGEXP")

  a.Pattern = "[^A-Z^a-z^0-9]"

  a.IgnoreCase = True

  a.Global = True

  SZZM = a.Replace(i, "")

  Set a = Nothing

End Function


保存完代码之后我们回到表格里面,在单元格输入我们刚才写的自定义函数,如下图:

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用
每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

坚持!坚持!再坚持!

致各位亲

每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

每日一歌


羽泉《冷酷到底》

当前浏览器不支持播放音乐或语音,请在微信或其他浏览器中播放 每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用

点击下方“阅读原文”查看更多
↓↓↓

版权声明:本站内容全部来自于腾讯微信公众号,属第三方自助推荐收录。《每日Excel分享(VBA)| 正则表达式在Excel VBA中的应用》的版权归原作者「我的Excel」所有,文章言论观点不代表Lambda在线的观点, Lambda在线不承担任何法律责任。如需删除可联系QQ:516101458

文章来源: 阅读原文

相关阅读

关注我的Excel微信公众号

我的Excel微信公众号:MyExcel365

我的Excel

手机扫描上方二维码即可关注我的Excel微信公众号

我的Excel最新文章

精品公众号随机推荐