如何取消合并单元格并填充所有单元格文本？

作者：绿色风分类：时间：2022-08-17 浏览：107

楼主 gvntw	Q：如何取消合并单元格并填充所有单元格文本？ A：右击工作表标签—查看代码—插入—模块—粘贴下面的代码—关闭编辑器。选定要取消合并的单元格区域—开发工具—宏—执行（gvntw）。 Sub gvntw() Dim c As Range Dim rCells As Range With Selection .UnMerge '取消合并 Set rCells = .SpecialCells(xlCellTypeBlanks) '定位空单元格 For Each c In rCells '循环空单元格 c.FillDown '向下填充 Next End With End Sub UnMerge.gif
2楼 judychenlj	非合并单元格填充也是适用的，我刚才试了一下，没有问题。
3楼 gvntw	没合并就更方便了，呵呵。
4楼 gaoruiking999	很方便啊，悲剧的是单位的2003没法用~
5楼 wqfzqgk	当合并单元格为空值时出错
6楼 gvntw	不会出错，就等于取消合并单元格。
7楼 gvntw	家里没装2003，但看代码，2003应该可以的。
8楼芐雨	谢谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表