Split函數的使用方法

文本不區分大小寫

Sub test2()
    Dim strTest As String
    Dim arrResult() As String
    Dim i As Integer
    strTest = "AAAsBBBSCCCsDDDsEEEFF"
    arrResult = VBA.Split(strTest , delimiter:="s", compare:=vbTextCompare)
    For i = LBound(arrResult) To UBound(arrResult)
        Debug.Print Trim(arrResult(i))
    Next i
End Sub