VBA正则非捕获组失效，无法提取反向引用编号1和2

需要从字符串中按指定模式提取特定数字，尝试用非捕获组排除无关内容但未达到预期，目标是仅提取反向引用1和2对应的数字（以空格分隔），方便后续用VBA的Split函数解析。

示例对比 #

当前VBA代码 #

Function cat(strInput As String) As String

    Static re As New RegExp

     With re
       .Global = True
       .MultiLine = True
       .IgnoreCase = True
     End With
     
     re.Pattern = "\b(?:Cat)(?:\s)*([1-5])(?:\s)*(?:RA)(?:[SPE])(?:\s)*([0-9]){1,2}\b"
    
    If re.Test(strInput) = True Then
      cat = re.Execute(strInput)(0)
    End If
    
End Function

问题原因 #

1. 正则表达式的第二个捕获组写法错误：([0-9]){1,2}会重复捕获单个数字，最终仅保留最后一位（比如匹配15时只捕获5），无法完整捕获1-2位数字。
2. 代码逻辑错误：re.Execute(strInput)(0)返回的是整个匹配的字符串，而非捕获组的内容，非捕获组只是不将无关内容存入捕获组，但不影响整体匹配结果的返回。

修正方案 #

1. 修正正则表达式

将第二个捕获组调整为([0-9]{1,2})，确保能完整捕获1-2位数字；同时简化非捕获组的冗余写法（不需要用(?:)包裹字面量，直接写即可）：

\bCat\s*([1-5])\s*RA[SPE]\s*([0-9]{1,2})\b

2. 修改VBA代码逻辑

通过Match对象的SubMatches集合访问捕获组内容，拼接成空格分隔的字符串：

Function cat(strInput As String) As String
    Static re As New RegExp
    
    With re
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
    End With
    
    ' 修正后的正则表达式
    re.Pattern = "\bCat\s*([1-5])\s*RA[SPE]\s*([0-9]{1,2})\b"
    
    If re.Test(strInput) Then
        Dim targetMatch As Match
        Set targetMatch = re.Execute(strInput)(0)
        ' 拼接两个捕获组的内容，用空格分隔
        cat = targetMatch.SubMatches(0) & " " & targetMatch.SubMatches(1)
    End If
End Function

关键说明 #

• SubMatches集合的索引从0开始，对应正则中第1、2个捕获组的内容
• 非捕获组(?:...)的作用是排除无关内容进入捕获组，但不会改变整体匹配结果的返回，要获取目标内容必须主动访问捕获组

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