Excel仅选中item inventory表时宏正常运行，报400/1004错误如何解决？

问题原因 #

• 核心错误是排序参数key1对应的Range("F1")、Range("L1")没有显式指定所属工作表，VBA中未指定工作表的Range对象默认指向当前处于激活状态的工作表
• 当你未选中「item inventory」工作表时，排序目标是「item inventory」的A2:L区域，但排序关键字取的是当前激活工作表的F1、L1单元格，两个区域所属工作表不匹配，就会触发1004/400运行错误
• 只有当「item inventory」是激活工作表时，Range默认指向的就是该表，参数匹配才能正常运行
• 额外隐藏问题：原有代码未在运行结束后恢复ScreenUpdating = True，会导致运行后Excel界面无响应

修复方案 #

• 给所有Range对象统一显式指定所属工作表，避免依赖当前激活工作表的状态，可搭配With语句简化重复的工作表引用
• 优化最后一行取值逻辑：原有Range("A1").End(xlDown).row的方式如果A列存在空行就会提前截止，改成从下往上取的逻辑兼容性更强

修复后的完整代码如下：

Sub ItemInventorySort()
    Application.ScreenUpdating = False
    Dim lastrow As Long
    ' 用With语句简化工作表重复引用
    With Sheets("item inventory")
        .Sort.SortFields.Clear
        ' 从下往上取A列最后一行，避免空行导致的取值错误
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' 排序Key显式绑定当前工作表的单元格
        .Range("A2:L" & lastrow).Sort key1:=.Range("F1"), order1:=xlAscending
        .Range("A2:L" & lastrow).Sort key1:=.Range("L1"), order1:=xlAscending
    End With
    Application.ScreenUpdating = True
End Sub

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