Excel使用正則表達式

一、使用正則表達式提取子字符串

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正則表達式語法參考