Excel VBA正则提取异常：代码提取非匹配内容而非匹配项

你的现有代码通过Replace将匹配到的内容替换为空，返回的是原字符串中非匹配部分。要改为提取匹配项，只需调整代码逻辑，通过正则的Execute方法获取匹配结果即可，修改后的代码如下：

Function simpleCellRegex(Myrange As Range) As String
    Dim regEx As New RegExp
    Dim strPattern As String
    Dim strInput As String
    Dim matches As MatchCollection
    
    strPattern = "[a-zA-Z]{4}\d{4}$"
    
    If strPattern <> "" Then
        strInput = Myrange.Value
        
        With regEx
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
        End With
        
        Set matches = regEx.Execute(strInput)
        If matches.Count > 0 Then
            ' 获取第一个匹配项（你的模式针对结尾，通常只有一个匹配）
            simpleCellRegex = matches(0).Value
        Else
            simpleCellRegex = "Not matched"
        End If
    End If
End Function

关键修改点： #

• 移除了strReplace相关变量，不再依赖替换逻辑
• 使用regEx.Execute(strInput)获取所有匹配结果的集合MatchCollection
• 判断集合是否存在匹配项，有则返回第一个匹配项的Value，无则返回提示文本

使用说明： #

在Excel单元格中输入公式=simpleCellRegex(目标单元格)，比如=simpleCellRegex(A1)，即可提取目标单元格中符合[a-zA-Z]{4}\d{4}$规则的内容（结尾的4个字母+4个数字）。

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