合并单元格的时候怎么能保留所有数据_如何合并单元格并保留所有内容
时间：2023-04-10 08:59:06 来源：互联网
(资料图)
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效果如图。
本文到此分享完毕，希望对大家有所帮助。
标签：
最新文章推荐
- 合并单元格的时候怎么能保留所有数据_如何合并单元格并保留所有内容
- 山东泰安:组建保护专班深化一体化办案机制|世界新视野
- 今日热文：斯波谈附加赛：我们很期待 队员们都很喜欢竞争
- 友邦人寿首款个人养老金保险产品上市深入参与养老第三支柱建设
- 代建的意思_代建到底是什么意思 每日报道
- 贾跃亭的数字人生：一个网管，三个老婆，三次逆袭
- 世界快看：河道除草剂哪个效果好(河道除草剂效果比较好的是草胺磷)
- 每日头条!cdrx4工具栏怎么恢复_cdr工具栏怎么还原
- 焦点速递！何止成龙与龙虎武师，谁的下坡路都不好走
- 每日消息!特斯拉Model3：高效能的动力和出色的续航表现，你会买单么？
X 关闭
资讯中心
个人养老金制度启动实施 满足人民群众日益增长的多样化养老保障需要
2022-12-22
传拼多多成立出海项目组 或将与极兔速递进行合作
2022-08-06
低价高品质引发抢购热潮 盒马生鲜奥莱在京靠什么赚钱？
2022-07-08
厦门保障性租赁房认定细则发布 配租面向新市民群体年度租金涨幅不超过5%
2022-05-20
X 关闭