(资料图)

1、用一个老前辈的话，你想实现这个表格效果，完全可以通过数据透视表。

2、合并单元格是一件吃力不讨好的苦力活，一时解决了问题将来二次处理数据还是会痛不欲生。

3、但如果题主执意要用合并单元格，能告诉我后面有几列要做合并吗？感谢。

4、直接修改在这里方便查看吧。

5、在工作表按Alt+F11，跳出如图VBA窗口，在对应的工作表名称处双击，在右侧空白处粘贴以下代码：Sub mMerge()Application.DisplayAlerts = FalseFor Each Rng In Range("J2:J" & ActiveSheet.UsedRange.Rows.Count)With RngIf .MergeCells = True And .Row = .MergeArea.Row ThenFor mRow = .MergeArea.Row To .MergeArea.Row + .MergeArea.Rows.Count - 1mValue1 = mValue1 & Cells(mRow, 11) & Chr(10)mValue2 = mValue2 & Cells(mRow, 12) & Chr(10)NextRange("K" & .MergeArea.Row & ":K" & .MergeArea.Row + .MergeArea.Rows.Count - 1).MergeRange("K" & .MergeArea.Row).WrapText = TrueRange("K" & .MergeArea.Row) = Left(mValue1, Len(mValue1) - 1)mValue1 = EmptyRange("L" & .MergeArea.Row & ":L" & .MergeArea.Row + .MergeArea.Rows.Count - 1).MergeRange("L" & .MergeArea.Row).WrapText = TrueRange("L" & .MergeArea.Row) = Left(mValue2, Len(mValue2) - 1)mValue2 = EmptyEnd IfEnd WithNextApplication.DisplayAlerts = TrueEnd Sub效果如图。

本文到此分享完毕，希望对大家有所帮助。