VBA 中的错误'sort method out of range'

Question

我得到一个错误为Sort method out of range。一开始我也遇到了同样的错误，经过代码的增强，我再也没有看到这个错误了。

现在，当我执行时，它再次显示相同的错误。这不是有效的编码方式吗？

With Master_workbook.Worksheets("warehouse")
         'Last row and last column in worksheet("warehouse")
            Ws1_Lrow = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
            Ws1_Lcol = .Cells.Find("*", .Range("A1"), xlFormulas, , xlByColumns, xlPrevious).Column
            Set rngFilter = .Range(.Cells(1, 1), .Cells(Ws1_Lrow, Ws1_Lcol))
                Selection.Sort Key1:=Range("W2"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, Orientation:=xlTopToBottom
            Master_workbook.Worksheets("warehouse").Columns("Z:Z").Cut
            Master_workbook.Worksheets("warehouse").Columns("U:U").Insert Shift:=xlToRight 
end with

Answer 1

1. 将Selection更改为rngFilter
2. 将Key1:=Range("W2")更改为Key1:=.Range("W2")是否注意到范围前面的点
3. 如果工作表中没有数据，那么您试图查找行和列的方式会出错。你可能想看看这个
4. 确保Range("W2")在rngFilter范围内。您可以使用Intersect进行检查