Excel中，为了展示数据的的格式美观统一，易于理解。我们一般都会把相同的表头合并单元格。

如果一个个设置的话，会相当的麻烦。如何如何批量进行呢

如下示例：对下面表格的相同姓名进行合并

详细VBA代码

Sub 合并()

    Dim ln%, i%

    Application.DisplayAlerts = False    

    ln = [A65536].End(xlUp).Row

    For i = ln To 2 Step -1

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

            Range(Cells(i - 1, 1), Cells(i, 1)).Merge

        End If

    Next

    Application.DisplayAlerts = True

End Sub

建立一个模块，并建立一个合并过程，编写上面的代码，将文件另存为xlsm格式，要不然重新打开这段代码就消失了！

运行结果在【开始】-【开发工具】-【宏】

动态效果图

代码只限数据源在A列，如果不是在A列，在其他列呢？

参考至：Excel自学成才（头条号）