1、打开Excel数据表,如下图所示,A列中有很多内容一样的单元格,将内容相同的单元格合并成一个。
2、按下Alt+F11,打开VBA编辑界面,双击左侧数据所在的工作表,出现右侧代码编辑区,如下图所示。
3、输入代码:Sub 鱼木混猪()Application.DisplayAlerts = FalseFor i 租涫疼迟= Range("A65536").End(3).Row To 2 Step -1If Range("A" & i) = Range("A" & i - 1) ThenRange("A" & i & ":A" & i - 1).MergeEnd IfNextApplication.DisplayAlerts = TrueEnd Sub代码通过循环依次从下往上合并相邻两个内容相同的单元格,如下图所示。
4、点击代码中的任意位置,然后点击“运行子程序”按钮,如下图所示。
5、关闭VBA界面,返回Excel,可以看到所有相同内容的单元格都合并到成一个了,如下图所示。