请求编写VBA宏：拆分逗号分隔内容至下一行，保留行其他信息

刚好能解决你想要的需求——把单元格里带逗号的内容拆分到新行，同时保留原行的其他所有信息。我帮你完善并优化了代码，直接就能用：

Sub SplitCommaValues()
    Dim i As Long, j As Long
    Dim textParts As Variant
    Dim finalRow As Long
    
    ' 关闭屏幕更新，提升宏运行效率
    Application.ScreenUpdating = False
    
    ' 获取A列最后一个有内容的行号
    finalRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行往上遍历，避免插入新行打乱循环顺序
    For i = finalRow To 1 Step -1
        ' 检查当前A列单元格是否包含逗号
        If InStr(Cells(i, 1).Value, ",") > 0 Then
            ' 按", "拆分文本，同时去除首尾空格
            textParts = Split(Trim(Cells(i, 1).Value), ", ")
            
            ' 把第一个拆分内容留在原单元格
            Cells(i, 1).Value = textParts(0)
            
            ' 处理剩下的拆分内容，逐个插入新行
            For j = 1 To UBound(textParts)
                ' 在当前行下方插入新行
                Rows(i + 1).Insert Shift:=xlDown
                
                ' 复制原行的所有格式和内容（除A列外自动继承）
                Rows(i).Copy Destination:=Rows(i + 1)
                
                ' 设置新行的A列为当前拆分的内容（再次Trim确保无空格）
                Cells(i + 1, 1).Value = Trim(textParts(j))
                
                ' 行号加1，避免后续循环重复处理新插入的行
                i = i + 1
            Next j
        End If
    Next i
    
    ' 恢复屏幕更新，弹出完成提示
    Application.ScreenUpdating = True
    MsgBox "内容拆分完成！", vbInformation
End Sub

关键细节说明： #

• 从下往上遍历：如果从上到下处理，插入新行后会导致后续行的行号偏移，漏掉部分数据；从最后一行往第一行遍历就完全避免了这个问题。
• 智能拆分：用Split(Trim(Cells(i,1).Value), ", ")拆分，先去除单元格首尾空格，再按带空格的逗号分割，确保拆分后的内容干净无多余空格。
• 完整复制原行信息：通过Rows(i).Copy直接复制整行的格式和内容，保证新行的其他列和原行完全一致，不用手动逐个列复制。
• 效率优化：关闭ScreenUpdating让宏运行更快，不会出现屏幕闪烁的情况。

使用方法： #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器；
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」；
3. 把上面的代码粘贴到模块窗口里；
4. 回到Excel界面，按下Alt + F8，选择SplitCommaValues宏并运行即可。

内容的提问来源于stack exchange，提问作者Blackbutterfly