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

2023-10-23 阅读 264 评论 0

摘要：今天小编mail为大家分享的生活小常识，希望能够帮助到大家！如何合并单元格保留所有数据，如何合并单元格并保留所有内容这个很多人还不知道,现在让我们一起来看看吧！1、用一个老前辈的话，你想实现这个表格效果，完全可以通过数据透视表。2、合并单元

今天小编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洛川人-综合信息门户网站，涵盖生活常识、美食、创业、体育、旅游、家居、汽车、财经、互联网、科技、房产、教育等资讯。

免责声明：我们致力于保护作者版权，注重分享，被刊用文章因无法核实真实出处，未能及时与作者取得联系，或有版权异议的，请联系管理员，我们会立即处理，本文部分文字与图片资源来自于网络，转载此文是出于传递更多信息之目的,若有来源标注错误或侵犯了您的合法权益，请立即通知我们，情况属实，我们会第一时间予以删除，并同时向您表示歉意,谢谢!

原文链接：http://www.luochuanren.com/128883.html

上一篇：支付宝怎么样才可以开通花呗收款，最新版的支付宝怎么开通花呗收款

下一篇：五帝钱有什么作用挂在门上，五帝钱的用法及门对门忌讳

标签：单元格所有内容数据

单元格

发表评论:

管理员

内容137217
积分0
金币0