VBA学习笔记8：单元格的合并与拆分

大脸猫的小心得

于 2022-04-24 22:46:25 发布

阅读量4.4k

点赞数 1

分类专栏： VBA学习笔记文章标签：其他

本文链接：https://blog.csdn.net/weixin_45355881/article/details/124393598

版权

这篇VBA学习笔记介绍了如何实现单元格的合并与拆分操作。通过具体的代码示例，展示了从1图（多个单元格）到2图（合并单元格）以及从2图回溯到1图（拆分单元格）的过程。注意，在合并时按行合并，使用Cells引用，而拆分时因行数不固定需逐个处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

VBA学习笔记8：单元格的合并与拆分

如下图，需要实现1图到2图（单元格合并），或2图到1图（单元格拆分）。

1图：
在这里插入图片描述
2图：

合并单元格代码如下：

Sub 合并单元格()
    Dim k%, rng As Range
    For k = ThisWorkbook.Worksheets(1).UsedRange.Rows.Count To 2 Step -1  '从底层向上层合并，如果从上到下合并会报错（因为a2和a3合并后，a3为空值，则导致合并中断，再从a4a5合并，再a6a7合并，如果a2a3均为1班，a4为空，则会将a2a3a4合并在一起）
        If Cells(k, 1).Value = Cells(k - 1,

最低0.47元/天解锁文章