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

在VBA Excel中拆分包含多个分隔符的字符串，可以使用以下方法：

使用Split函数：

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

这两种方法都可以在VBA Excel中拆分包含多个分隔符的字符串。你可以根据自己的需求选择合适的方法。