Excel VBA运行时错误1004求助：部分机器执行排序代码异常

这段排序代码在部分机器触发1004错误，大概率是命名范围失效、工作表引用不稳定或者排序对象初始化不完整导致的，咱们逐个排查解决：

1. 先校验命名范围ChoiceList_AllChoices的有效性 #

错误1004最常见的诱因就是这个命名范围在某些机器上找不到或引用无效——可能是工作表结构变更、名称被误删，甚至不同Excel版本对名称解析的细微差异。

建议给名称引用加个有效性判断，避免直接调用出错：

Sub SortChoiceListForCurrentQuestionChoiceList()
    Dim targetRange As Range
    Dim wsChoiceList As Worksheet
    
    ' 先获取目标工作表（推荐用CodeName更稳定，后面会讲）
    Set wsChoiceList = ThisWorkbook.Worksheets("你的工作表实际名称")
    
    ' 验证命名范围是否存在且有效
    On Error Resume Next
    Set targetRange = ThisWorkbook.Names("ChoiceList_AllChoices").RefersToRange
    On Error GoTo 0
    
    If targetRange Is Nothing Then
        MsgBox "命名范围ChoiceList_AllChoices不存在或引用无效，请检查名称管理器！", vbExclamation
        Exit Sub
    End If
    
    ' 执行排序操作（先清除旧规则避免冲突）
    With wsChoiceList.Sort
        .SortFields.Clear
        .SortFields.Add Key:=targetRange.Columns(6), _
            SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ' 根据你的数据是否有表头调整Header参数（xlYes/xlNo）
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply ' 必须调用Apply才会执行排序
    End With
End Sub

2. 用工作表CodeName替代名称引用 #

如果sheetChoiceList是靠工作表名称引用的，很容易因为用户重命名工作表、大小写差异出错。改用工作表的CodeName会更稳定：

• 打开VBA编辑器，在左侧「工程资源管理器」找到目标工作表，右键选「属性」；
• 在「属性窗口」里把(名称)改成wsChoiceList（自定义名称也可以，只要代码里对应上）；
• 之后代码里直接用wsChoiceList代替sheetChoiceList，不用管用户改不改工作表显示名称。

3. 排查版本与权限问题 #

• 版本差异：旧版Excel对排序常量的支持可能有细微差别，如果报错可以把xlSortOnValues换成对应数值0，xlDescending换成2；
• 权限限制：如果文件是从互联网下载的，部分机器会标记为「受限」，导致宏无法正常访问范围。可以右键文件→「属性」→勾选「解除锁定」；同时检查Excel宏安全设置，确保允许信任的宏运行。

4. 额外注意：避免在保护工作表上执行排序 #

如果sheetChoiceList被保护，排序操作会直接触发1004错误。需要在排序前解除保护，完成后再重新保护：

wsChoiceList.Unprotect Password:="你的保护密码" ' 无密码可省略Password参数
' 执行排序代码
wsChoiceList.Protect Password:="你的保护密码", AllowSorting:=True ' 开启排序权限

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