VBA 正则表达式：使用自定义函数在 Excel 单元格内的字符串之间提取多个字符串

Question

在 Excel 列中，我有以下数据：

“奥迪 (ADI)、梅赛德斯 (modelx) (MEX)、法拉利超快、高 PS (FEH)”

有数百个模型由名称和括号中三个大写字母的缩写描述。

我只需要提取名称和缩写来分隔单元格。 我通过以下模块成功地为缩写做到了这一点：

Function extrABR(cellRef) As String
    Dim RE As Object, MC As Object, M As Object
    Dim sTemp As Variant
    Const sPat As String = "([A-Z][A-Z][A-Z][A-Z]?)"  ' this is my regex to match my string
    
    
Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .MultiLine = True
    .Pattern = sPat
    If .Test(cellRef) Then
        Set MC = .Execute(cellRef)
        For Each M In MC
            sTemp = sTemp & ", " & M.SubMatches(0)
        Next M
    End If
End With

extrABR = Mid(sTemp, 3)

End Function 

但是，我无法为 names 这样做。 我想通过以下正则表达式交换正则表达式： (^(.*?)(?= \\([AZ][AZ][AZ])|(?<=, )(.*)(?= \\([AZ][AZ][AZ])) ，但 VBA 似乎不允许后视。

任何想法？

Answer 1

正确，不支持后视，但只有在您预期的匹配重叠时才需要它们。 情况并非如此，您的所有匹配项都不重叠。 因此，您可以再次依赖capture ：

(?:^|,)\s*(.*?)(?=\s*\([A-Z]{3,}\))

请参阅正则表达式演示。 第 1 组值通过.Submatches(0)访问。

详情：

• (?:^|,) - 字符串开头或逗号
• \\s* - 零个或多个空白字符
• (.*?) - 捕获组 1：尽可能少的除换行符以外的任何零个或多个字符
• (?=\\s*\\([AZ]{3,}\\)) - 一个正向前瞻，匹配紧跟其后的位置
  • \\s* - 零个或多个空白字符
  • \\( - a (字符
  • [AZ]{3,} - 三个或更多大写字符
  • \\) - a )字符。

演示截图：

Answer 2

RE.REPLACE——试试这个函数。括号之间的任何东西都将被替换为“”，只给你一串模型名称，如果需要，你可以用逗号分割并获取字符串数组。

Function ModelNames(cellRef) As String
    Dim RE As Object, MC As Object, M As Object
    Dim sTemp As Variant, sPat As String
    sPat = "\([^)]+\)"
'Or you can use your formula pattern "([A-Z][A-Z][A-Z][A-Z]?)" to get (modelx)  in the final output.

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .MultiLine = True
    .Pattern = sPat
End With

ModelNames = RE.Replace(cellRef, "")

End Function