嘿，我来帮你解决这个VBA排序的报错问题！你遇到的两个错误其实都是因为对象引用不明确导致的，咱们一步步拆解修复：

错误原因分析 #

• 第一个438错误：你用了With ActiveSheet，但.SetRange、.Header这些属性属于Sort对象（工作表的排序器），而不是Worksheet本身。Excel找不到ActiveSheet上的这些属性，所以抛出“对象不支持该属性或方法”的错误。
• 第二个“无效或未限定的序列”错误：去掉With块后，.SetRange前面没有明确指定所属的Sort对象，Excel不知道你要操作哪个排序器，自然报错。

修复后的完整代码 #

Sub Sort()
    ' 明确指向工作表的Sort对象作为With块的主体
    With ActiveSheet.Sort
        .SortFields.Clear ' 清空原有排序规则
        
        ' 添加3个排序字段，注意给Range加上父级引用（.Parent指向当前工作表）
        .SortFields.Add Key:=.Parent.Range("A2:A35"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .SortFields.Add Key:=.Parent.Range("B2:B35"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        .SortFields.Add Key:=.Parent.Range("H2:H35"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending, _
                        DataOption:=xlSortNormal
        
        ' 设置排序范围、表头、排序方向等参数
        .SetRange .Parent.Range("A1:I35")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply ' 执行排序
    End With
End Sub

关键修改点说明 #

• 修正With块对象：把With ActiveSheet改成With ActiveSheet.Sort，这样块内的所有方法/属性都直接指向工作表的Sort对象，解决438错误。
• 移除冗余操作：删掉了没必要的Cells.Select——VBA排序不需要预先选中单元格，直接操作Range更高效稳定。
• 严谨的Range引用：用.Parent.Range代替直接写Range，.Parent在这里指代Sort对象所属的工作表，避免因ActiveSheet意外切换导致的错误。
• 兼容旧版Excel（可选）：把SortFields.Add2改成SortFields.Add，Add2是Excel 2016及以后版本新增的，Add在所有支持VBA的Excel版本中都能正常工作。

额外注意事项 #

• 尽量避免依赖ActiveSheet，如果你的代码是针对特定工作表的，直接写ThisWorkbook.Worksheets("你的工作表名").Sort会更可靠。
• 排序前最好清空原有SortFields，避免残留的旧规则影响结果（代码里已经加了.SortFields.Clear）。

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