Excel VBA -将一行数据拆分为多行

Sub SplitRows()
    Dim rng As Range
    Dim cell As Range
    Dim splitData() As String
    Dim i As Integer
    
    '选择要拆分的数据范围
    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    '循环遍历每个单元格
    For Each cell In rng
        '使用逗号作为分隔符将单元格数据拆分为数组
        splitData = Split(cell.Value, ",")
        
        '将拆分后的数据逐行写入相邻的单元格
        For i = LBound(splitData) To UBound(splitData)
            cell.Offset(i).Value = splitData(i)
        Next i
    Next cell
End Sub