Excel VBA中如何提取正则匹配的冒号前数字串？

问题描述 #

需要从字符串"Someting 1245:1000, someting 45678:2000, someting 100:1234"中提取冒号:前的数字串1245、45678、100，如何通过Excel VBA实现？

用户当前代码 #

Sub short() 

  Dim RegEx As Object, MyString As String
  Dim match1 As Variant
    Set RegEx = CreateObject("VBScript.RegExp")

    With RegEx
      .Pattern = "^[\d\d\d\d:\d\d\d\d]"
    End With
end sub

问题分析 #

原代码的正则模式存在两个核心问题：

1. ^锚定了字符串开头，无法匹配中间位置的数字；
2. [\d\d\d\d:\d\d\d\d]是字符集，仅匹配单个字符，而非连续的数字+冒号结构，且强制限制数字长度为4位，无法适配100这类短数字。

修正后的完整代码 #

Sub ExtractNumbersBeforeColon()
    Dim RegEx As Object, MyString As String
    Dim matches As Object, match As Object
    Dim resultText As String
    
    ' 定义目标字符串
    MyString = "Someting 1245:1000, someting 45678:2000, someting 100:1234"
    
    ' 初始化正则对象
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Pattern = "\b(\d+):" ' 匹配单词边界后的连续数字，捕获到冒号前的部分
        .Global = True ' 开启全局匹配，获取所有符合条件的结果
    End With
    
    ' 执行匹配
    Set matches = RegEx.Execute(MyString)
    
    ' 整理匹配结果
    resultText = ""
    For Each match In matches
        resultText = resultText & match.SubMatches(0) & ", "
    Next match
    
    ' 输出结果
    If Len(resultText) > 0 Then
        resultText = Left(resultText, Len(resultText) - 2)
        MsgBox "提取到的数字：" & resultText
        ' 如需写入单元格，可取消下一行注释
        ' Range("A1").Value = resultText
    Else
        MsgBox "未找到匹配的数字"
    End If
End Sub

关键说明 #

• .Pattern = "\b(\d+):"：
  • \b：单词边界，确保匹配的是独立的数字串（避免匹配其他字符串中的数字片段）；
  • (\d+)：捕获组，匹配一个或多个任意长度的数字；
  • :：定位标记，确保我们提取的是冒号前的数字。
• .Global = True：必须开启该属性，否则正则只会返回第一个匹配项。
• match.SubMatches(0)：通过捕获组获取冒号前的数字内容，这是我们需要的目标结果。

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