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正则表达式语法参考