我们在处理这种表格的时候为了美观和增强可读性一般会选择将第一列相同单元格合并，数据少的时候我们可以手动逐个操作，当数据比较冗杂的时候靠手工就会比较麻烦，今天我们就介绍一下如何使用VBA代码简单快速地处理。
我们先通过GIF图片演示一下操作方法
操作是不是很简单？具体代码如下：
Sub 合并单元格()
Dim r%
Application.DisplayAlerts = False
For r = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(r, 1).Value = Cells(r, 1)(0, 1).Value Then
Cells(r, 1)(0, 1).Resize(2, 1).Merge
Else
End If
Next
Application.DisplayAlerts = False
End Sub
代码很少，基本逻辑却是很饱满：
第一，为了避免打断代码运行，取消任何提示窗口；
第二，通过For..Next选中数据源最后一行，并逐步向上一行选择；
第三，判断选择的这一行跟上一行内容是否相同；
第四，如果相同则合同这两个单元格，如果不同则不执行任何操作。
第五，执行结束之后，不执行任何提示。
你学会了吗？
