VBA宏合并工作表时排序语句报错‘sort reference not valid’求助

错误根源 #

• 排序时使用的Columns(3)、Columns(14)未指定所属工作表，默认会引用当前活动工作表，和你正在处理的MmasterWS不一致，导致引用无效
• 原代码中空行检查的逻辑冗余：For Each rng In ...是逐个遍历单元格，和后续按行检查空值的逻辑不匹配，完全没必要这么写

修复后的完整代码 #

'遍历工作表以删除A列（尺寸排序列）/删除无数量的行/排序列
Dim rng As Range
Dim chkcell As String
Dim lastrow As Long

For Each MmasterWS In MmasterWB.Worksheets
    MmasterWS.Range("A:A").Delete '删除A列（尺寸排序列）
    lastrow = MmasterWS.Range("B" & MmasterWS.Rows.Count).End(xlUp).Row
    MmasterWS.Range("A4:O" & lastrow).Interior.ColorIndex = 2 '将所有行改为白色
    
    ' 改为从最后一行往上逐行检查空行，逻辑更直接高效
    Do While lastrow >= 4
        chkcell = MmasterWS.Range("A" & lastrow).Value
        If chkcell = "" Then
            MmasterWS.Range("A" & lastrow).EntireRow.Delete '删除空行
        End If
        lastrow = lastrow - 1 '向上移动一行
    Loop
    
    ' 删除空行后重新获取最后一行，确保排序范围准确
    lastrow = MmasterWS.Range("B" & MmasterWS.Rows.Count).End(xlUp).Row
    ' 给排序的Key指定所属工作表，避免引用错误
    MmasterWS.Range("A3:O" & lastrow).Sort _
        Key1:=MmasterWS.Columns(3), Order1:=xlAscending, _
        Key2:=MmasterWS.Columns(14), Order2:=xlAscending, _
        Header:=xlYes
skip2:
Next

核心修复点 #

• 排序引用修正：把Columns(3)改成MmasterWS.Columns(3)，明确指定排序依据的列属于当前正在处理的工作表，避免和活动工作表混淆
• 空行检查逻辑优化：删除多余的单元格遍历，换成从下往上逐行检查，既高效又能确保所有空行都被处理
• 更新最后一行号：删除空行后重新计算lastrow，避免排序范围包含已删除的无效行

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