如何根据一个分隔符将Excel工作表拆分成多个工作表？

Sub SplitSheetByDelimiter()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim cell As Range
    Dim delimiter As String
    Dim data() As String
    
    delimiter = "," '根据需要设置分隔符
    
    For Each ws In ThisWorkbook.Worksheets
        Set newWs = Worksheets.Add(After:=ws)
        newWs.Name = ws.Name & "_Split"
        
        For Each cell In ws.UsedRange
            data = Split(cell.Value, delimiter)
            newWs.Cells(cell.Row, cell.Column).Resize(1, UBound(data) + 1).Value = data
        Next cell
    Next ws
End Sub

=FILTERXML("<root><item>" & SUBSTITUTE(A1, ",", "</item><item>") & "</item></root>", "//item")