【Excel 支持正则的方法】解决VBA引入正则的方法和步骤

五步晦暝2025-05-25 23:28

VBA本身不支持直接使用正则，需要引用Microsoft VBScript Regular Expressions库

方法 1：前期绑定（手动引用库）

打开 VBA 编辑器（按 Alt+F11）。
点击菜单栏的工具 → 引用。
在弹出的窗口中勾选 Microsoft VBScript Regular Expressions 5.5，点击确定。

之后即可在代码中使用正则表达式：

vbnet 复制代码

Sub RegexExample()
    Dim regex As New RegExp
    Dim str As String
    Dim matches As MatchCollection
    
    str = "Hello 123 World 456"
    
    With regex
        .Global = True    ' 全局匹配
        .Pattern = "\d+"  ' 匹配数字
    End With
    
    If regex.Test(str) Then
        Set matches = regex.Execute(str)
        For Each match In matches
            MsgBox "找到匹配: " & match.Value
        Next
    End If
End Sub

方法 2：后期绑定（无需引用库）

如果你不想手动引用库，可以用 CreateObject 动态创建对象：

vbnet 复制代码

Sub RegexExample()
    Dim regex As Object
    Dim str As String
    Dim matches As Object
    
    Set regex = CreateObject("VBScript.RegExp")
    str = "Hello 123 World 456"
    
    With regex
        .Global = True
        .Pattern = "\d+"
    End With
    
    If regex.Test(str) Then
        Set matches = regex.Execute(str)
        For Each match In matches
            MsgBox "找到匹配: " & match.Value
        Next
    End If
End Sub

关键属性说明

.Global：是否全局匹配（True 匹配所有，False 仅匹配第一个）。
.Pattern：设置正则表达式规则（如 \d 匹配数字）。
.IgnoreCase：是否忽略大小写（True 或 False）。
.Execute()：执行匹配，返回匹配结果的集合。