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