obsidian/知识参考/Excel中使用正则表达式.md

---

notion-id: 393c2940-ac1a-4705-8d54-87d13ae663

正则表达式（Regular Expression），常被用来检验、替换符合某个模式(规则)的字符串，在代码中常缩写为regexp。 VBA中并没有直接提供正文表达式对象，需要借助VBScript的正则对象。如果使用前期绑定，那么就需要在VBE中引用如下扩展库: ![[IMG-20260516155656120.png]]

[!tip] 💡 也可以使用后期绑定的方式创建正则对象，代码如下。 Set objRegEx = CreateObject("vbscript.regexp")

正则对象有四个属性和三个方法。 ![[IMG-20260516155656188.png]]

[!tip] 💡 假设待处理的文本如下，现需要提取其中的姓名汉字和电话数字。 Name:张三丰,Phone:13801380000 示例代码如下。

Sub RegExpDemoSyntax()
	Dim objRegEx As Object
	Set objRegEx = CreateObject("vbscript.regexp")
	objRegEx.Pattern = "Name:(.*?),Phone:(\d+)"
	objRegEx.Global = True
	myString = "Name:张三丰,Phone:13801380000"
	Set objMH = objRegEx.Execute(myString)
	If objMH.Count > 0 Then
			With objMH(j)
				Debug.Print .submatches(0), .submatches(1)
			End With
	End If
	Set objRegEx = Nothing
End Sub

代码在立即窗口输出结果如下： 张三丰 13801380000

由示例可以看到正则对象的属性和方法并不复杂，也可以说too simple。但是想用好正则就不是那么简单的事情，其核心在于如何编写正确高效的正则匹配模式，即设置Pattern参数。