1、为了给大家更好的演示，我在上次分享的基础上，做了一个样表给大家看。我们可以看出在A列上有许多相同值，我们将会通过办法来合并。
2、右键点击表格所在工作表，选择查看代码。
3、弹出VBA编辑页面。
4、在此页面中输入VBA代码：
Option Explicit
Sub Macro1()
Application.DisplayAlerts = False
Dim i As Integer
Dim first As Integer
Dim last As Integer
first = 1
For i = 1 To 16 Step 1
If Worksheets("Sheet1").Range("A" & i) = Worksheets("Sheet1").Range("A" & i + 1) Then
Else
last = i
Worksheets("Sheet1").Range("A" & first & ":A" & last).Select
With Selection
.MergeCells = True
End With
first = i + 1
End If
Next
Application.DisplayAlerts = True
End Sub
5、点击保存
6、如果弹出如下信息，单击是，保存即可。
7、回到工作表中，选择工具-宏
8、选择宏，并打开它
9、单击执行，excel将执行自动合并单元格。
10、合并完的单元格效果如图所示。是不是很神奇呢？
