Excel 正则表达式查询返回空数据

Question

我正在使用 following VBA code from a related question in my Excel spreadsheet, and when I use it in a cell, it always fails (returns nothing). Even if I call it on a string literal in the function call (i.e. =RegexExtract("ABC1_DEF","ABC[0-9]")), it still fails. I've enabled the "Microsoft Visual Basic Regular Expressions 5.0" feature in the MSVBA application,，所以我不确定为什么这些结果总是空的。我该如何解决这个问题？

Function RegexExtract(ByVal text As String, _
                      ByVal extract_what As String, _
                      Optional separator As String = ", ") As String

Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
Dim i As Long, j As Long
Dim result As String

RE.pattern = extract_what
RE.Global = True
Set allMatches = RE.Execute(text)

For i = 0 To allMatches.count - 1
    For j = 0 To allMatches.Item(i).submatches.count - 1
        result = result & (separator & allMatches.Item(i).submatches.Item(j))
    Next
Next

If Len(result) <> 0 Then
    result = Right$(result, Len(result) - Len(separator))
End If

RegexExtract = result

End Function

编辑

我尝试了 yet another function from a separate question，它只是 returns #VALUE!:

Function RegexExtract(ByVal text As String, _
                      ByVal extract_what As String) As String

Dim allMatches As Object
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = extract_what
RE.Global = True
Set allMatches = RE.Execute(text)
RegexExtract = allMatches.Item(0).submatches.Item(0)

End Function

Answer 1

请注意，您正在尝试访问存储捕获组值的 .Submatches，但您尚未在模式中定义任何捕获组。

如果您使用 (ABC[0-9])，您将获得与当前函数的匹配。否则，访问 allMatches.Item(i) 以获得完全匹配值并丢弃代码以获取捕获的组。

Excel 正则表达式查询返回空数据

Excel regex query returning empty data

regex

excel

vba

office-2016

编辑