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

在Excel中，可以使用宏（Macro）来实现将逗号分隔的单元格数据拆分成多行的操作。以下是一个简单的宏示例，可以实现这个功能：

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

在这个宏中，我们首先设置输入范围和输出范围，然后遍历输入范围中的每个单元格。对于每个单元格，我们使用Split函数将其值按逗号分隔，并将结果存储在values变量中。然后，我们遍历values变量中的每个值，并将其写入输出范围的下一行。

在使用这个宏之前，需要确保输入范围中的数据是按行排列的，并且每个单元格中的数据都是以逗号分隔的。在运行宏之后，输出范围中将包含按行排列的拆分后的数据。

需要注意的是，这个宏只是一个简单的示例，可能无法处理所有可能的情况。在实际使用中，可能需要进行一些调整和优化。