Excel通过宏自动合并同一列连续相同单元格

1、我们需要通过宏来实现自动合并的效果，首先我们需要Excel显示“开发工具”菜单，在这个菜单里我们可以编辑运行宏。

关于Excel2016如何显示“开发工具”菜单，可以参考如下经验引用。

 

2、点击“开发工具”菜单，继续点击“宏”按钮，打开宏窗口

3、输入宏名称“MergeCols”, 点击右侧的“创建”按钮

4、在打开的宏编辑器中，输入如下代码并保存：

Sub MergeCols()

    Dim RowNumber As Integer
    Dim i As Integer
    Application.DisplayAlerts = False
    With Sheet1
        '获取Sheet1最后一行数据的行号
        RowNumber = .Range("A65536").End(xlUp).Row
        For i = RowNumber To 2 Step -1
            '我们这里合并的是每一行的第一列，处理其他列，修改列值即可
            If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
                .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge
            End If
        Next
    End With
    Application.DisplayAlerts = True
End Sub

5、关闭宏编辑窗口，回到Excel表格，点击“宏”按钮，再次打开宏窗口，此时其中显示了我们刚刚创建的“MergeCols”宏信息。

6、选择这个宏，点击右侧最上方的“执行”按钮即可！