VBA多关键字排序触发Run-time error 1004错误求助

错误根源 #

直接调用Range(First)这类全局Range方法时，VBA会默认指向当前活动工作表。如果活动表不是你指定的"SS Colors"，字符串里的单元格区域在活动表中不存在或无效，就会触发"Method 'Range' of object '_Global' failed"错误。

修复方案 #

1. 绑定目标工作表对象 #

所有区域操作都明确关联到"SS Colors"工作表，避免依赖活动表：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("SS Colors")

2. 先验证区域有效性 #

添加排序条件前，先确认字符串对应的区域在目标工作表中有效：

Function IsValidRange(ws As Worksheet, rangeStr As String) As Boolean
    On Error Resume Next
    Dim testRng As Range
    Set testRng = ws.Range(rangeStr)
    IsValidRange = Err.Number = 0
    On Error GoTo 0
End Function

3. 修改排序逻辑 #

结合上述两步，调整排序代码：

With ws.Sort
    .SortFields.Clear
    ' 处理第一个排序关键字
    If IsValidRange(ws, First) Then
        .SortFields.Add Key:=ws.Range(First), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
    End If
    ' 处理第二个排序关键字（逻辑一致）
    If IsValidRange(ws, Second) Then
        .SortFields.Add Key:=ws.Range(Second), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
    End If
    ' 必须指定排序的完整数据区域
    .SetRange ws.Range("A5:D174") ' 根据你的实际数据范围修改
    .Header = xlYes ' 有表头设为xlYes，无则设为xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

核心注意点 #

• 必须设置.SetRange：Sort对象需要明确排序的完整数据区域，不能依赖默认选中区域。
• 杜绝全局Range调用：所有区域操作都通过工作表对象ws.Range()执行，彻底避免活动表切换带来的错误。

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