Excel快速合并内容相同的单元格

　　使用Excel统计数据时可能出现多行数据前几列单元格内容相同需要合并的情况，可通过VBA快速进行内容相同单元格的合并。

　　按下 Alt+F11 打开VBA编辑界面，双击左侧需要处理的表格，在右侧代码区输入以下代码。这里是处理A列，应当根据实际情况更改为其他列。

Sub mergeCell()
Application.DisplayAlerts = False
For i = Range("A65536").End(3).Row To 2 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
Range("A" & i & ":A" & i - 1).Merge
End If
Next
Application.DisplayAlerts = True
End Sub

　　按 F5 运行宏或者点击菜单栏的运行按钮