Excel如何根据另一列数据合并对应单元格，可用VBA或公式吗

首先明确：公式仅能修改单元格内容，无法执行合并单元格这类格式调整操作，因此可以通过Excel内置功能或者VBA两种方式实现需求。

方法1：内置功能快速实现（无需写代码） #

操作步骤如下：

• 选中作为判断依据的参考列、以及需要合并的目标列的全部数据区域
• 点击「数据」选项卡下的「分类汇总」，分类字段选择参考列的表头，汇总方式任意选择（如求和），汇总项选择需要合并的目标列，勾选「汇总结果显示在数据下方」后点击确定
• 选中目标列中新生成的汇总单元格区域，按F5唤起定位窗口，选择「空值」后确定，点击工具栏的「合并后居中」按钮
• 再次点击「数据」选项卡下的「分类汇总」，选择「全部删除」即可完成合并，最终效果和需求完全匹配

方法2：VBA 脚本实现（适合高频重复操作场景） #

可以直接使用如下脚本，按需修改参数即可适配你的表格：

Sub MergeCellsByReferenceColumn()
    Dim lastRow As Long, i As Long, startRow As Long
    ' 可自定义参数：列号对应规则 1=A列、2=B列，以此类推
    Const colRef As Integer = 1 ' 作为合并判断依据的参考列
    Const colMerge As Integer = 2 ' 需要合并单元格的目标列
    Const startRow As Integer = 2 ' 数据起始行（如果无表头则改为1）
    
    lastRow = Cells(Rows.Count, colRef).End(xlUp).Row
    Application.DisplayAlerts = False ' 关闭合并弹窗提示
    
    For i = startRow To lastRow + 1
        If Cells(i, colRef).Value <> Cells(i - 1, colRef).Value Then
            ' 合并相同参考值对应的目标列区域
            Range(Cells(startRow, colMerge), Cells(i - 1, colMerge)).Merge
            startRow = i
        End If
    Next i
    
    Application.DisplayAlerts = True
    ' 合并后默认居中对齐，不需要可删除下一行
    Columns(colMerge).HorizontalAlignment = xlCenter
End Sub

使用步骤：

• 按Alt+F11打开VBA编辑器，右键点击当前工作簿名称选择「插入-模块」，将上述代码粘贴到模块中
• 按需修改代码开头的参考列、合并列、数据起始行参数
• 按F5运行脚本即可完成合并

注意：合并单元格操作不可撤销，操作前请务必备份原数据，避免内容丢失。

内容的提问来源于stack exchange，提问作者Hsu Chen-Kuang