Excel VBA多列排序代码未修改突然失效，报运行时错误1004如何解决

问题场景：原有未修改的排序代码可正常运行，突然在Apply环节弹出1004错误，排序目标为Sheet1的Q列（整数）、R列（字符串），排序范围为Q10:R9999，无表头。

核心触发原因排查（按出现概率从高到低排序） #

• 工作表Sort字段残留冲突：Excel的Sort对象是绑定在工作表上的持久化对象，排序规则会随文件保存、关闭留存，不会因为代码重启自动清空。如果之前有过手动排序其他范围、VBA排序运行中断的情况，会残留和当前排序范围不匹配的SortField——比如残留了一个指向A列的排序Key，而当前设置的排序范围仅覆盖Q-R列，执行Apply时就会直接报1004。这是完全符合“代码未改动、突然报错”场景的最高发原因。
• 排序范围内存在合并单元格：Excel不允许对包含合并单元格的区域执行排序，哪怕合并单元格只占范围里的1个单元格，也会直接触发报错。排查方式：选中Q10:R9999整个范围，查看「开始」选项卡的「合并后居中」按钮是否为高亮激活状态，若有则取消所有合并单元格即可。
• 引用对象隐式飘移：原代码依赖Sheet1.Activate切换工作表、再用ActiveSheet和不带工作表前缀的Range做引用，如果运行时出现工作表切换、VBA工程里Sheet1的内部属性名被修改、工作表被意外删除，会导致实际引用的Range和目标对象不一致，触发对象定义错误。
• 工作表处于保护状态：如果Sheet1开启了工作表保护，且未授权允许排序操作，执行排序应用时会直接被拦截报1004。排查方式：查看「审阅」选项卡下是否显示「撤销工作表保护」按钮，若有则临时解除保护再运行。
• 排序Key落在排序范围外：原代码的排序Key为Q10、R10，和SetRange设置的Q10:R9999逻辑匹配，但如果后续在工作表中插入/删除行、移动单元格，导致Key单元格的实际位置超出当前设置的排序范围，也会触发应用环节的报错。

修复后的稳定运行代码 #

Sub SortMultipleColumns()
    ' 显式绑定目标工作表，不依赖Activate/ActiveSheet的隐式引用
    Dim ws As Worksheet
    Set ws = Sheet1 ' 直接使用VBA工程内的Sheet1对象名，避免工作表标签名修改带来的引用问题
    
    ' 如存在工作表保护，临时解除（有密码可填入Unprotect的参数中）
    ws.Unprotect Password:=""
    
    With ws.Sort
        ' 核心修复：清空所有残留的排序规则，避免历史残留字段引发冲突
        .SortFields.Clear
        
        ' 所有Range引用都绑定到ws对象，避免引用飘移
        .SortFields.Add Key:=ws.Range("Q10"), Order:=xlAscending
        .SortFields.Add Key:=ws.Range("R10"), Order:=xlAscending
        .SetRange ws.Range("Q10:R9999")
        .Header = xlNo
        ' 补充关闭大小写匹配，避免字符串列排序时的隐藏异常
        .MatchCase = False
        
        .Apply
    End With
    
    ' 如需保留原保护，可在此处恢复
    ' ws.Protect Password:=""
End Sub

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