Excel使用正则表达式

1、使用正则表达式提取子字符串

Function GetStr(ran As range, pattern As String)
    With CreateObject("VBScript.regexp")
        .Global = True
        .IgnoreCase = True
        .pattern = pattern
        
        If .Execute(ran).Count = 0 Then
            GetStr = "No match"
        Else
            GetStr = .Execute(ran)(0)
        End If

    End With

End Function

VBScript正则表达式语法参考

Excel使用正则表达式

原文：https://www.cnblogs.com/weixia-blog/p/10537008.html