调用Sort宏触发Runtime error 1004，单独按钮运行正常问题咨询

嘿，这种情况我之前也碰到过！先给你理清楚问题出在哪，再给几个靠谱的解决办法：

问题场景回顾 #

你把两个表格的数据合并后，想用VBA按A列升序、E列降序排序。写的Sort宏单独绑按钮运行完全正常，但用Call Sort调用时就炸出Runtime error 1004，提示"for this procedure, all cells need to have the same size"。你的排序代码是：

Sub Sort()
    Range("A8:E100").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlNo, _
        Key2:=Range("E8"), Order2:=xlDescending, Header:=xlNo
End Sub

问题根源 #

核心原因是调用时机不对：当你在复制合并数据的代码之后直接Call Sort，Excel可能还没彻底完成数据写入，甚至可能还处于"复制模式"（比如剪贴板内容还没粘贴完毕），这时候Sort方法识别数据区域时，会因为单元格状态不一致（比如部分单元格还在等待更新，或者当前激活的不是目标工作表）而报错。但绑按钮运行时，是在所有操作结束、工作表处于稳定状态下执行的，所以就没问题。

解决办法 #

给你三个实用的方案，按优先级推荐：

1. 让Excel先完成所有待处理操作
   在调用Sort之前，加一句DoEvents，它会让Excel先处理完当前所有后台操作（比如数据粘贴、单元格更新），再执行排序：

   ' 这里是你复制合并数据的代码...
   DoEvents ' 等待Excel完成所有当前操作
   Call Sort
   

2. 明确指定目标工作表
   原代码里直接用Range，如果当前激活的工作表不是你要排序的表，就会出问题。修改Sort宏，明确绑定到目标工作表，避免歧义：

   Sub Sort()
       ' 把"Sheet1"改成你实际的工作表名称
       With ThisWorkbook.Worksheets("Sheet1")
           .Range("A8:E100").Sort _
               Key1:=.Range("A8"), Order1:=xlAscending, _
               Key2:=.Range("E8"), Order2:=xlDescending, _
               Header:=xlNo ' 注意这里只需要设置一次Header参数
       End With
   End Sub
   

3. 修正代码里的冗余参数
   你原代码里重复写了Header:=xlNo，虽然这不是直接报错的原因，但规范写法应该只设置一次，既能让代码更整洁，也能避免潜在的参数冲突问题（比如后续修改参数时漏改其中一个）。

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