「ソート方法が範囲外です」、

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変更Key1:=Range("W2")お知らせKey1:=.Range("W2")の範囲の前にドット
2. rngFilterか？
3. ワークシートにデータがない場合は、行と列を検索する方法によってエラーが発生します。 This
4. Range("W2")がrngFilterの範囲にあることを確認してください。あなたはそれを確認するためにIntersectを使用することができます