Excel 批量合并相同内容单元格

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格式，要不然重新打开这段代码就消失了！运行结果在【开始】-【开发工具】-【宏】
动态效果图

1502784766671726.gif

代码只限数据源在A列，如果不是在A列，在其他列呢？
参考至：Excel自学成才（头条号）