目录
在使用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
2.通过Excel操作实现
参考视频链接
重点看11:24之后的用Ctrl+G,分类汇总的方法
3.通过方方格子插件
请参考: