excel表格怎么批量合并单元格并保留全部内容？

详情用一个老前辈的话，你想实现这个表格效果，完全可以通过数据透视表。合并单元格是一件吃力不讨好的苦力活，一时解决了问题将来带距氧盟演面反民二次处理数据还是会痛不欲生。
但如果题主执意要用合来自并单元格，能告诉我后面有几列要做合并吗？感谢。
直接修改在这里方便查看吧。
在工作表按Alt+F11，跳出如图VBA窗口，在对应的工作表名称处双击，在右侧空白处粘贴以下代码：
Sub mMerge()
Application.DisplayAlerts = False
For Each Rng In Range("J2:J" & ActiveSheet.UsedRange.局内议机Rows.Count)
With Rng
If .MergeCells = True And .Row = .MergeArea.Row Then
For mRow = .MergeArea.Row To .MergeArea.Row + .MergeArea.Rows.Count - 1
mValue1 = mVal坐曾系雷约ue1 & Cells(mRow, 11) & Chr(10)
mValue2 = mValue2 & Cells(mRow, 12) & Chr(10)
Next
Range("K" & .MergeArea.Row & ":K" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge
Range("K" & .MergeArea.Row).WrapText = True
Range("K" & .MergeArea.Row) = Left核紧扩复牛送(mValue1, Len(mValue1) - 1)
mValue1 = Empty
Range("L" & .MergeArea.Row & ":L" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge
R官信容兴心便ange("L" & .MergeArea.Row).WrapText = True
Range("L" & .MergeArea.Row) = Left(mValue2, Len(mValue2) - 1)
mValue2 = Empty
End If
End With
Next
Application.DisplayAlerts = True
End Sub
效果如图






追答 : 我试试看用代码，但要稍等一下，水平有限哈哈
追答 : 代码你照着图片里面的换行吧，比较不会出语法错误，网页排版效果不好
追答 : 保存后，视图里面运行宏mMerge即可