哇！她爱不释手的东西竟然是它！

还记得前面有一节，专为一个群友写的：

合并内容相同的单元格

不会VBA之前，我还得给做个辅助列，然后通过透视表的方式实现，可是当我们学习了VBA之后，问题竟是如此简单了。

代码如下：

Sub 合并相同的单元格()

Dim i%

Application.DisplayAlerts = False

For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

    If Cells(i, 1).Value = Cells(i - 1, 1).Value Then

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

        With Cells(i - 1, 1)

        .VerticalAlignment = xlCenter

        .HorizontalAlignment = xlCenter

        End With

    End If

Next

Application.DisplayAlerts = True

End Sub

合并单元格的写法：

range（合并区域）.merge

想合并哪一列只需简单修改参数即可。代码部分就不多做解释了，想学西的同学来我的视频教程里学习，只有真正的掌握，才会体会到VBA给大家带来的方便之处。