1、打开Excel数据表，如下图所示，A列中有很多内容一样的单元格，将内容相同的单元格合并成一个。
2、按下Alt+F11，打开VBA编辑界面，双击左侧数据所在的工作表，出现右侧代码编辑区，如下图所示。
3、输入代码：
Sub 鱼木混猪()
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
代码通过循环依次从下往上合并相邻两个内容相同的单元格，如下图所示。
4、点击代码中的任意位置，然后点击“运行子程序”按钮，如下图所示。
5、关闭VBA界面，返回Excel，可以看到所有相同内容的单元格都合并到成一个了，如下图所示。
1、1.打开数据表；
2.按下Alt+F11，双击工作表；
3.输入代码，核心代码：
Range("A" & i & ":A" & i - 1).Merge
4.点击“运行子程序”；
5.Excel中所有相同内容单元格就合并到一块了。
