Excel宏 - 逗号分隔单元格到行

Sub SplitCells()
    Dim cell As Range
    Dim inputRange As Range
    Dim outputRange As Range
    Dim values As Variant
    Dim value As Variant
    Dim row As Long
    
    ' 设置输入范围和输出范围
    Set inputRange = Range("A1")
    Set outputRange = Range("B1")
    
    ' 遍历输入范围的每个单元格
    For Each cell In inputRange
        ' 获取当前单元格的值
        values = Split(cell.Value, ",")
        
        ' 遍历逗号分隔的值
        For Each value In values
            ' 将值写入输出范围的下一行
            row = row + 1
            outputRange.Offset(row, 0).Value = value
        Next value
    Next cell
End Sub