Excel中不用分类汇总和数据透视表，如何将相邻且内容相同的单元格自动合并？

在Excel中不使用分类汇总和数据透视表，将相邻且内容相同的单元格自动合并，需要通过VBA宏代码实现。Excel内置功能无法在不借助上述两种工具的情况下批量自动合并单元格。

操作步骤

1. 数据排序：首先按需要合并的目标列进行升序或降序排列，确保内容相同的单元格物理位置相邻。这是该方案生效的前提条件。
2. 打开VBA编辑器：在Excel中按 Alt + F11 打开VBA编辑器。
3. 插入模块：点击菜单栏“插入” > “模块”，在空白代码窗口中输入以下代码：

Sub MergeSameAdjacentCells()
    Dim rng As Range
    Dim i As Long
    Dim startRow As Long, endRow As Long
    Dim colNum As Integer
    
    '设置目标列号，例如A列为1
    colNum = 1
    Set rng = ActiveSheet.UsedRange
    startRow = rng.Row
    endRow = startRow + rng.Rows.Count - 1
    
    Application.DisplayAlerts = False
    For i = endRow To startRow + 1 Step -1
        If Cells(i, colNum).Value = Cells(i - 1, colNum).Value And Cells(i, colNum).Value <> "" Then
            Range(Cells(i - 1, colNum), Cells(i, colNum)).Merge
        End If
    Next i
    Application.DisplayAlerts = True
End Sub

4. 运行代码：按 F5 键运行宏，指定列中相邻且内容相同的单元格将被自动合并。

判断依据

• 代码采用从下往上倒序遍历（Step -1），避免正序遍历时合并后行号变化导致漏判。
• 通过比较当前行与上一行的值是否相等且非空来决定是否执行 Merge 方法。
• 关闭 DisplayAlerts 是为了屏蔽合并时系统弹出的“仅保留左上角值”的警告提示。

适用条件

• 数据必须提前排序，使相同内容的单元格相邻。
• 适用于单列或多列分别处理的场景；若需多列同时合并，需嵌套循环逐列处理。

常见误区

• 未排序直接运行：如果相同内容分散在不同行，不排序直接运行代码将无法合并不相邻的相同单元格。
• 正序遍历：从上往下正序遍历时，一旦执行合并，下方单元格的行索引会发生变化，导致后续判断出错或遗漏。
• 忽略空值判断：未加 <> "" 条件时，相邻的空单元格也会被合并，可能不符合实际需求。