Excel中，为了展示数据的的格式美观统一，易于理解。我们一般都会把相同的表头合并单元格。
如果一个个设置的话，会相当的麻烦。如何如何批量进行呢
如下示例：对下面表格的相同姓名进行合并
| 姓名 | 数量 |
| 张三 | 76 |
| 张三 | 51 |
| 李四 | 83 |
| 李四 | 34 |
| 李四 | 68 |
| 李四 | 83 |
| 王五 | 66 |
| 王五 | 93 |
| 王五 | 61 |
| 小才子 | 40 |
| 小才子 | 46 |
| 小才子 | 76 |
| 小才子 | 36 |
| 小才子 | 63 |
详细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自学成才（头条号）
