合并列时触发运行时错误1004：Power Query宏问题求助

嘿，我太懂这种刚摸宏和Power Query就卡壳的憋屈感了！咱们一步步拆解这个运行时错误1004的问题，帮你搞定自动化操作～

先搞懂为啥会报错 #

录制宏看起来简单，但Power Query的后台逻辑和Excel界面操作不一样，录制出来的代码很容易踩坑：

• 绝对引用的坑：你贴的代码里Range("$A$...")没写完整，大概率是录制时的区域引用要么不完整，要么后续数据范围变了，导致宏找不到对应的区域。
• ActiveSheet的隐患：用ActiveSheet会依赖当前激活的工作表，如果运行宏时激活的不是你处理的那张表，直接就报错。
• ListObjects冲突：如果你的工作表里已经有同名的表格（ListObject），再执行Add操作就会触发1004错误。

给你三个靠谱的解决方案 #

方案1：修复录制的宏代码（适合想保留原有录制逻辑的情况） #

先把代码补全并优化，避免踩坑：

Sub FixMergedColumnsMacro()
    Dim targetWs As Worksheet
    Dim targetRange As Range
    Dim existingTable As ListObject
    
    ' 指定具体工作表，别用ActiveSheet
    Set targetWs = ThisWorkbook.Worksheets("你的工作表名称") ' 替换成你的表名
    targetWs.Activate ' 可选，确保操作在目标表上
    
    ' 检查是否已有同名表格，有的话先删除
    On Error Resume Next
    Set existingTable = targetWs.ListObjects("表1") ' 替换成你录制宏时生成的表格名
    On Error GoTo 0
    If Not existingTable Is Nothing Then
        existingTable.Delete
    End If
    
    ' 完整指定要合并的不相邻列范围，比如A、C、E列
    Set targetRange = targetWs.Range("A:A,C:C,E:E") ' 或者具体单元格范围如"A1:C10,E1:E10"
    
    ' 创建ListObject（表格）
    targetWs.ListObjects.Add(xlSrcRange, targetRange, , xlYes).Name = "合并后的表格"
End Sub

修改时注意：

• 替换"你的工作表名称"和表格名称为实际内容
• 确保targetRange是你需要合并的有效区域

方案2：用Power Query自带的自动化（更推荐！稳定不踩坑） #

既然你已经在Power Query里做好了合并列的步骤，其实根本不需要录宏，直接用Power Query的内置刷新功能就行：

• 右键你的Power Query结果表格，点击「表格」选项卡的「刷新」→「刷新全部」，就能更新数据
• 如果要打开文件自动刷新：右键表格→「表格」选项卡→「刷新」→「刷新数据」，勾选「打开文件时刷新数据」
• 要是需要批量刷新，用这个极简宏就行，比录制的代码可靠100倍：

Sub RefreshPowerQueryData()
    ThisWorkbook.RefreshAll
End Sub

方案3：直接写VBA合并列（适合不需要Power Query的场景） #

如果只是要合并不相邻列，直接写VBA代码更直观，不会有录制宏的各种问题：

Sub MergeNonAdjacentCols()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 以A列的最后一行为准
    
    ' 在F列生成合并结果（可替换成你想要的列）
    ws.Range("F1").Value = "合并结果"
    ws.Range("F2:F" & lastRow).Formula = "=A2&C2&E2" ' 替换成你要合并的列
    
    ' 把公式转成值（可选）
    ws.Range("F2:F" & lastRow).Value = ws.Range("F2:F" & lastRow).Value
End Sub

最后排查下常见的1004诱因 #

如果还是报错，检查这几点：

• 工作表是不是被保护了？取消保护再试
• 是不是打开了只读文件？保存成可编辑状态
• 引用的区域是不是有隐藏行/列？暂时取消隐藏再运行宏

内容的提问来源于stack exchange，提问作者AsaCrowFlies