如何合并单元格后保留所有的内容，合并单元格怎么保留所有内容

今天小编mail为大家分享的生活小常识，希望能够帮助到大家！

合并单元格的时候怎么能保留所有数据，如何合并单元格并保留所有内容这个很多人还不知道,现在让我们一起来看看吧！

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效果如图。

Luochuanren.Com洛川人-综合信息门户网站，涵盖生活常识、美食、创业、体育、旅游、家居、汽车、财经、互联网、科技、房产、教育等资讯。