Excel向下合并空单元格

cy413026

已于 2022-06-30 21:41:09 修改

阅读量9.4k

点赞数 6

分类专栏：神奇的office办公软件文章标签：合并空单元格 Excel

于 2022-04-28 21:31:58 首次发布

本文链接：https://blog.csdn.net/cy413026/article/details/124483503

版权

神奇的office办公软件专栏收录该内容

12 篇文章

订阅专栏

本文介绍了三种在Excel中合并空单元格的方法：1) 使用VBA宏，提供了具体的代码实现；2) 通过Excel内置功能，结合Ctrl+G和分类汇总的操作；3) 使用第三方插件方方格子。每种方法都有详细的步骤说明，帮助用户提高工作效率。

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

1.vba实现向下合并空单元格

2.通过Excel操作实现

3.通过方方格子插件

在使用Excel时常见如下操作：

将左边的1,2,3,4合并成右边的样子，除了我们手动去合并外还有什么其他方法呢？

本文给出一种使用VBA来实现的方法，并给出不用脚本语言的处理参考视频链接

1.vba实现向下合并空单元格

首先在sheet中选中要合并的区域，然后运行下面的代码

alt+F11 插入-模块 copy下面代码并运行

Sub downMergeBlankCell()
Dim qCnt&, zCnt&, xCnt&, yCnt&
qCnt = 1
zCnt = 1
With Selection
    For yCnt = 1 To .Columns.Count
        For xCnt = 1 To .Rows.Count
            If .Cells(xCnt, yCnt) = "" Then
                zCnt = xCnt
            Else
                .Cells(qCnt, yCnt).Resize(zCnt - qCnt + 1, 1).Merge
                qCnt = xCnt
                zCnt = xCnt
            End If
        Next xCnt
        .Cells(qCnt, yCnt).Resize(zCnt - qCnt + 1, 1).Merge
        qCnt = xCnt
        zCnt = xCnt
    Next yCnt
    .HorizontalAlignment = xlCenter '居中
    .VerticalAlignment = xlCenter '垂直居中
End With
MsgBox "所选单元格合并完毕！"
End Sub