将excel中不同两列数据按照逗号和冒号分成多列，并将这两列分列后的数据分别存放在另个excel sheet中的VBA脚本

可以使用VBA脚本来实现将Excel中不同两列数据按照逗号和冒号分成多列，并将这两列分列后的数据分别存放在另个Excel Sheet中的操作。

以下是实现的VBA代码：

Sub SplitData()
    Dim wsSrc As Worksheet, wsDest As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim data() As String, subData() As String
    
    '设置源Sheet和目标Sheet
    Set wsSrc = Worksheets("Sheet1")
    Set wsDest = Worksheets("Sheet2")
    
    '获取源Sheet最后一行的行号
    lastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row
    
    '循环处理每一行数据
    For i = 1 To lastRow
        '将逗号和冒号作为分隔符分割数据
        data = Split(wsSrc.Cells(i, 1).Value, ",")
        
        '循环处理分割后的子数据
        For j = LBound(data) To UBound(data)
            subData = Split(data(j), ":")
            
            '将分割后的数据分别存放在目标Sheet中
            wsDest.Cells(i, j + 1).Value = subData(0)
            wsDest.Cells(i, j + 2).Value = subData(1)
        Next j
    Next i
End Sub

需要注意的是，需要将代码中的"Sheet1"和"Sheet2"改为实际的源Sheet和目标Sheet的名称。此外，如果分割后的数据不止两列，需要根据实际情况进行修改代码。