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

![Exported image](Exported%20image%2020260425174957-0.png)

也可以使用后期绑定的方式创建正则对象，代码如下。  
Set objRegEx = CreateObject("vbscript.regexp")
 
正则对象有四个属性和三个方法。

![Exported image](IMG-20260516155656301.png)

假设待处理的文本如下，现需要提取其中的姓名汉字和电话数字。  
**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参数。  
在接下来的几篇推文中将介绍一些Excel中正则应用实例
 \> 来自 \<[https://mp.weixin.qq.com/s/nxQ0l9ukfa_Rt-wjbHE3Ow](https://mp.weixin.qq.com/s/nxQ0l9ukfa_Rt-wjbHE3Ow)\>  

|   |   |
|---|---|
|参考文献|[https://mp.weixin.qq.com/s/nxQ0l9ukfa_Rt-wjbHE3Ow](https://mp.weixin.qq.com/s/nxQ0l9ukfa_Rt-wjbHE3Ow)|