Excel中我们经常需要合并某一列数据中的连续相同项（跨行合并），对于数据量不大的excel表格（几十行之内），手工合并没啥问题，但如果数据量太大，手工合并的效率就很低了！那能否自动化这种工作呢？这篇经验就给你答案。图示1：我们原始的数据形式图示2：我们期望最后的数据形式工具/原料moreExcel方法/步骤1/6分步阅读

我们需要通过宏来实现自动合并的效果，首先我们需要Excel显示“开发工具”菜单，在这个菜单里我们可以编辑运行宏。

关于Excel2016如何显示“开发工具”菜单，可以参考如下经验引用。

2/6

点击“开发工具”菜单，继续点击“宏”按钮，打开宏窗口

3/6

输入宏名称“MergeCols”, 点击右侧的“创建”按钮

4/6

在打开的宏编辑器中，输入如下代码并保存：

Sub MergeCols() Dim RowNumber As Integer Dim i As Integer Application.DisplayAlerts = False With Sheet1 获取Sheet1最后一行数据的行号 RowNumber = .Range(A65536).End(xlUp).Row For i = RowNumber To 2 Step -1 我们这里合并的是每一行的第一列，处理其他列，修改列值即可 If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then .Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge End If Next End With Application.DisplayAlerts = TrueEnd Sub

5/6

关闭宏编辑窗口，回到Excel表格，点击“宏”按钮，再次打开宏窗口，此时其中显示了我们刚刚创建的“MergeCols”宏信息。

6/6

选择这个宏，点击右侧最上方的“执行”按钮即可！

自动合并单元格