如何用VBA正则表达式提取文本中所有匹配的联系方式

核心问题原因 #

你代码里的regexPhone.Global = False是关键问题——这个参数设为False时，正则只会匹配第一个符合模式的字符串，所以无论文本里有多少个号码，matches.Count永远是1。

修改后的代码 #

要提取所有匹配项，只需把Global属性改为True，同时遍历所有匹配结果拼接返回；还可以新增函数统计匹配数量：

提取所有电话号码的UDF #

Private regexPhone As Object

Public Function GetAllPhoneNumbers(inputString As String, Optional delimiter As String = ", ") As String
    Dim matches As Object
    Dim i As Integer
    Dim result As String
    
    ' 默认返回空字符串
    GetAllPhoneNumbers = ""
    
    ' 初始化正则对象
    If regexPhone Is Nothing Then
        Set regexPhone = CreateObject("VBScript.RegExp")
        regexPhone.Pattern = "(?:\+[0-9]{3})?\(?([0-9]{3})\)?[-. ]?([0-9]{3})[-. ]?([0-9]{5})"
        regexPhone.Global = True ' 关键：开启全局匹配，捕获所有符合项
        regexPhone.IgnoreCase = False
    End If
    
    ' 获取所有匹配结果
    Set matches = regexPhone.Execute(inputString)
    
    ' 无匹配项直接退出
    If matches.Count = 0 Then Exit Function
    
    ' 遍历拼接所有匹配项
    For i = 0 To matches.Count - 1
        ' 这里选择合并数字（去掉分隔符），也可以直接用matches(i).Value保留原始格式
        result = result & regexPhone.Replace(matches(i).Value, "$1$2$3") & delimiter
    Next i
    
    ' 移除末尾多余的分隔符
    GetAllPhoneNumbers = Left(result, Len(result) - Len(delimiter))
End Function

统计电话号码数量的UDF #

Public Function CountPhoneNumbers(inputString As String) As Integer
    Dim matches As Object
    
    ' 复用已初始化的正则对象
    If regexPhone Is Nothing Then
        Set regexPhone = CreateObject("VBScript.RegExp")
        regexPhone.Pattern = "(?:\+[0-9]{3})?\(?([0-9]{3})\)?[-. ]?([0-9]{3})[-. ]?([0-9]{5})"
        regexPhone.Global = True
    End If
    
    Set matches = regexPhone.Execute(inputString)
    CountPhoneNumbers = matches.Count
End Function

使用示例 #

针对文本"02012345678 01234123456 FAKEMAIL@GMAIL.COM"：

• 调用=GetAllPhoneNumbers(A1)会返回02012345678, 01234123456
• 调用=CountPhoneNumbers(A1)会返回2

注意事项 #

如果遇到其他格式的电话号码，可以调整正则Pattern来适配；由于数据杂乱，建议多测试复杂案例，确保正则覆盖大部分场景。

内容的提问来源于stack exchange，提问作者user3644997