vba 正则表达式匹配

在 VBA 中可以使用正则表达式进行字符串匹配和搜索。VBA 自带了 Microsoft VBScript 正则表达式引擎，可以通过添加对 Microsoft VBScript Regular Expressions 5.5 的引用来使用。

下面是一个示例代码，其中使用正则表达式检查一个字符串是否符合 Email 地址格式：

Option Explicit
Sub TestRegex()
    Dim re As Object
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*(\.[a-zA-Z]{2,4})$"
    ' 匹配 Email 地址格式的正则表达式
    Dim email As String
    email = "test@example.com"
    If re.Test(email) Then
        MsgBox email & " 是有效的 Email 地址。"
        MsgBox email & " 不是有效的 Email 地址。"
    End If
End Sub
在这个示例代码中，创建了一个 RegExp 对象，并设置了正则表达式模式，然后使用 Test 方法测试一个 Email 地址字符串是否符合该模式。然后根据测试结果弹出一个消息框。
使用正则表达式时需要注意：正则表达式是一个强大而又复杂的工具，需要深入理解其语法和用法，否则容易出现错误和漏洞。建议先学习一些基础的正则表达式语法，然后再在 VBA 中使用。