Excle使用正则提取字符串

Function RegexExtract(ByVal inputString As String) As String
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    
    With regEx
        .Global = True
        .Pattern = "\((\w{1,3})\)" ' 此处正则表达式可根据你的具体需求进行修改
    End With
    
    If regEx.test(inputString) Then
        Set matches = regEx.Execute(inputString)
        RegexExtract = matches(0).SubMatches(0)
    Else
        RegexExtract = ""
    End If
End Function