Excel合并单元格,是一个让人又爱又恨的东西!强烈建议,尽量不要把单元格合并在一起,因为合并单元格会给以后的数据处理带来很多的麻烦!但合并单元格的功能,在套打或设定版面时,又有其不可替代的作用,因此让人又爱又恨!

我们在工作中经常会遇到需要合并相同值的单元格,但是对于Excel有大量需要合并单元格的时候,你真确定要一个一个的合并吗?其实你大可不必慌忙,我们今天分享的VBA小代码内容是批量合并相同值的单列单元格。您只需将以下代码复制到VBE窗口中,执行代码即可。

照例举个例子,如下图所示,C列是部门字段,需要将相同的部门单元格修改为合并单元格。

源数据:

我们看看执行的效果:

看了上面的动画,是不是感觉非常适合合并大量的单元格。其实上述的代码也是非常简单.

开发者工具 - 插入按钮控件:附上Excel VBA代码

Private Sub CommandButton1_Click()

Dim rngData As Range

Dim i, lngCol, lngFirst, lngLast

On Error Resume Next

Set rngData = Application.InputBox("请选择单列数据列!", Default:=Selection.Address, Type:=8)

Set rngData = Intersect(rngData.Parent.UsedRange, rngData) 'intersect语句避免用户选择整列造成低效运算

lngCol = rngData.Column 'rngData所在列

lngFirst = rngData.Row '用户选择的区域并不是一定从第一行开始,使用此句读取开始行

lngLast = lngFirst + rngData.Rows.Count - 1 'rngData结束行

Application.ScreenUpdating = False '取消屏幕刷新

Application.DisplayAlerts = False '取消消息提醒。

rngData.Parent.Select '激活rngData对象所在的工作表,避免跨工作表操作问题

For i = lngLast To lngFirst + 1 Step -1 '对rngData进行从尾向前遍历

If Cells(i, lngCol) = Cells(i - 1, lngCol) Then

Cells(i - 1, lngCol).Resize(2, 1).Merge

End If

Next

rngData.VerticalAlignment = xlCenter '单元格格式上下居中

Application.ScreenUpdating = True

Application.DisplayAlerts = True

MsgBox "合并完成!"

End Sub

 

PS:

1,该段代码只支持单列单元格区域,即按照相同的列进行合并。例如A10:A20,B2:B500等。

2,由于merge合并后的单元格区域只保留右上角首个单元格的值,因此该段代码遍历单元格区域的顺序是从后向前,而不是从前向后,后者是新人常出错之处,注意for-next循环是从Step -1开始的。

3,当然也可以采用从前向后的遍历顺序,先将Rng装入数组,对数组中的数据进行遍历判断是否等同,标记头尾行号,再批量合并单元格。该方法的效率也会高于遍历单元格两两合并的方法。