如何在Excel VBA 中使用正则表达式?
正则表达式是个强大的文本查找替换工具,在VBA中使用正则表达式可以简化程序,提高程序的运行速度和效率。本文将介绍在VBA中使用正则表达式的通用代码。
操作方法
- 01
新建一个空白工作簿,在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示:
- 02
在“代码窗口“中复制粘贴以下代码: Sub RegTest() '定义正则表达式对象 Dim oRegExp As Object '定义匹配字符串集合对象 Dim oMatches As Object '创建正则表达式 '定义要执行正则查找的文本变量 Dim sText As String sText = "这是v一个正则表达式b的范例程序a代码" Set oRegExp = CreateObject("vbscript.regexp") With oRegExp '设置是否匹配所有的符合项,True表示匹配所有, False表示仅匹配第一个符合项 .Global = True '设置是否区分大小写,True表示不区分大小写, False表示区分大小写 .IgnoreCase = True '设置要查找的字符模式 .Pattern = "[\u4e00-\u9fa5]+" '判断是否可以找到匹配的字符,若可以则返回True MsgBox .Test(sText) '对字符串执行正则查找,返回所有的查找值的集合,若未找到,则为空 Set oMatches = .Execute(sText) '把字符串中用正则找到的所有匹配字符替换为其它字符 MsgBox .Replace(sText, "") End With Set oRegExp = Nothing Set oMatches = Nothing End Sub 如下图所示:
- 03
执行以上代码,将把 sText = "这是v一个正则表达式b的范例程序a代码" 变量中的中文字符全部删除,将只返回 "vba"3个英文字符,如下图所示。其中的 .Pattern = "[\u4e00-\u9fa5]+"表示匹配所有中文字符,Pattern属性是正则表达式对象的核心,当需要执行其它查找替换时一般都只需更改Pattern属性即可。
- 04
一些常见的正则Pattern如下: [0-9]表示匹配任意一个数字 [a-zA-Z]表示匹配任意一个英文字母 [\u4e00-\u9fa5]表示匹配任意一个中文字符