通过VBA代码合并单元格

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、合并完的单元格效果如图所示。是不是很神奇呢？