Excel VBA：如何动态合并多行多列数据

嘿，我完全懂你现在的困扰——要处理那种行数不固定的分组数据，每组以序列号开头，得把每组分散在多行多列的内容合并成一行输出对吧？刚好之前帮人解决过几乎一模一样的需求，给你一套实用的VBA方案，一步步来：

咱们的核心逻辑很简单：

• 先识别分组边界：把每一行A列（假设序列号在A列，你可以自己调整）有内容的行当作新组的起始行
• 然后收集组内数据：从起始行开始，一直到下一个有序列号的行之前，把每组内各列的所有内容收集起来（比如用逗号分隔同列的多个值）
• 最后写入输出行：把收集到的整组数据一次性写到目标区域的一行里

你可以直接把这段代码复制到Excel的VBA编辑器里（按Alt+F11打开），然后根据你的实际数据调整参数：

Sub MergeVariableRows()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRow As Long, targetRow As Long, i As Long
    Dim currentSerial As String
    Dim colBData As String, colCData As String ' 根据你的列数添加更多变量
    
    ' 设置源工作表和目标工作表（这里假设源表叫"原始数据"，目标表叫"合并结果"，你可以改）
    Set wsSource = ThisWorkbook.Worksheets("原始数据")
    Set wsTarget = ThisWorkbook.Worksheets("合并结果")
    
    ' 初始化目标行（从第2行开始，假设第1行是表头）
    targetRow = 2
    ' 清空目标表已有数据（除了表头）
    wsTarget.Range("A2:Z" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row).ClearContents
    
    ' 获取源数据最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历源数据行（从第2行开始，假设第1行是表头）
    For i = 2 To lastRow
        ' 判断当前行是否是新组的起始（A列有内容，即序列号）
        If wsSource.Cells(i, "A").Value <> "" Then
            ' 如果不是第一个组，先把上一组的数据写入目标表
            If i > 2 Then
                wsTarget.Cells(targetRow, "A").Value = currentSerial
                wsTarget.Cells(targetRow, "B").Value = colBData
                wsTarget.Cells(targetRow, "C").Value = colCData
                ' 更多列的话继续添加...
                targetRow = targetRow + 1
            End If
            ' 初始化新组的变量
            currentSerial = wsSource.Cells(i, "A").Value
            colBData = wsSource.Cells(i, "B").Value
            colCData = wsSource.Cells(i, "C").Value
        Else
            ' 如果是组内的行，把对应列的数据追加进去（用逗号分隔，你可以改成其他分隔符）
            If wsSource.Cells(i, "B").Value <> "" Then
                colBData = colBData & ", " & wsSource.Cells(i, "B").Value
            End If
            If wsSource.Cells(i, "C").Value <> "" Then
                colCData = colCData & ", " & wsSource.Cells(i, "C").Value
            End If
            ' 更多列的话继续添加...
        End If
    Next i
    
    ' 把最后一组的数据写入目标表
    wsTarget.Cells(targetRow, "A").Value = currentSerial
    wsTarget.Cells(targetRow, "B").Value = colBData
    wsTarget.Cells(targetRow, "C").Value = colCData
    ' 更多列的话继续添加...
    
    MsgBox "数据合并完成！", vbInformation
End Sub

• 工作表设置：你需要把wsSource和wsTarget的名称改成你实际使用的工作表名，比如你的源数据在"Sheet1"，就改成Set wsSource = ThisWorkbook.Worksheets("Sheet1")
• 列的扩展：如果你的数据不止B、C两列，只要照着现有的变量格式，新增colDData、colEData这类变量，然后在遍历的时候追加数据即可
• 分隔符调整：代码里用的是, 作为同列多值的分隔符，你可以改成换行符vbCrLf或者其他符号，比如colBData = colBData & vbCrLf & wsSource.Cells(i, "B").Value
• 表头处理：假设源表和目标表都有表头（第1行），如果没有的话，把遍历起始行改成1，目标行初始值改成1即可

1. 运行宏之前一定要备份原始数据，避免误操作导致数据丢失
2. 如果你的序列号不是在A列，把代码里所有的"A"改成对应的列号（比如序列号在D列，就改成"D"）
3. 如果序列号有特定格式（比如都是数字或者以特定前缀开头），可以把判断条件改成IsNumeric(wsSource.Cells(i, "A").Value)或者Left(wsSource.Cells(i, "A").Value, 2) = "SN"这类更精准的判断

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