如何在vba excel中拆分包含多个分隔符的字符串？

Function SplitString(strInput As String, strDelimiters As String) As Variant
    Dim varResult As Variant
    Dim i As Long
    
    varResult = Split(strInput, strDelimiters)
    
    For i = LBound(varResult) To UBound(varResult)
        varResult(i) = Trim$(varResult(i))
    Next i
    
    SplitString = varResult
End Function

Sub TestSplitString()
    Dim strInput As String
    Dim strDelimiters As String
    Dim varResult As Variant
    
    strInput = "A,B;C:D"
    strDelimiters = ",;:"
    
    varResult = SplitString(strInput, strDelimiters)
    
    For Each str In varResult
        Debug.Print str
    Next str
End Sub

Function SplitStringRegex(strInput As String, strDelimiters As String) As Variant
    Dim objRegex As Object
    Dim objMatches As Object
    Dim varResult As Variant
    Dim i As Long
    
    Set objRegex = CreateObject("VBScript.RegExp")
    objRegex.Pattern = "[" & strDelimiters & "]"
    objRegex.Global = True
    
    Set objMatches = objRegex.Execute(strInput)
    
    ReDim varResult(objMatches.Count - 1)
    
    For i = 0 To objMatches.Count - 1
        varResult(i) = objMatches(i).Value
    Next i
    
    SplitStringRegex = varResult
End Function

Sub TestSplitStringRegex()
    Dim strInput As String
    Dim strDelimiters As String
    Dim varResult As Variant
    
    strInput = "A,B;C:D"
    strDelimiters = ",;:"
    
    varResult = SplitStringRegex(strInput, strDelimiters)
    
    For Each str In varResult
        Debug.Print str
    Next str
End Sub