在VBA中如何使用正则表达式来提取邮箱地址？

在Visual Basic for Applications (VBA) 中，你可以使用 `Microsoft VBScript Regular Expressions` 对象来处理正则表达式。下面是一个简单的例子，展示如何使用正则表达式提取文本中的电子邮件地址：

Sub ExtractEmails()
    Dim regex As Object ' 创建一个正则表达式对象
    Set regex = CreateObject("VBScript.RegExp") ' 创建实例

    Dim inputString As String ' 需要搜索的字符串
    inputString = "Please email me at john.doe@example.com or jane_doe@domain.net"

    ' 正则表达式模式匹配电子邮件地址
    Dim pattern As String
    pattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b" ' 匹配常见的邮箱格式

    ' 设置模式并查找所有匹配项
    regex.Pattern = pattern
    Dim matches() As MatchCollection
    Set matches = regex.Execute(inputString)

    ' 打印找到的所有邮箱地址
    For Each match In matches
        Debug.Print match.Value ' 或者将结果存储到数组或其他数据结构中
    Next match
End Sub

在这个例子中，正则表达式模式 `\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b` 用于匹配大部分常见的邮箱格式。