[發問] 請問此判斷範圍該如何修正,才不會選擇過多

starry1314

問題:
1.  Range("a1:AW" & [a65536].End(xlUp).Row).Sort Key1:=Range("W1"), Order1:=xlAscending  <<如果第2列空白則會往下跑到6萬多列去
2.  .Range(Selection, Selection.End(xlDown)).Select  <<則往下跑到100萬行去

1. Sub 數據()
   
2. 
   
3. With Sheets("工作表1")
   
4. 
   
5.     .Range("$A$1").AutoFilter Field:=21, Criteria1:="                  類別"
   
6.    
   
7.          Range("a1:AW" & [a65536].End(xlUp).Row).Sort Key1:=Range("W1"), Order1:=xlAscending
   
8.          Range("A1:AW" & [a65536].End(xlUp).Row).Sort Key1:=Range("Y1"), Order1:=xlAscending
   
9.         .UsedRange.Columns("U:AD").Copy Sheets("數據(晚餐)").[U1]
   
10.             .Range("U2").Select
    
11.     .Range(Selection, Selection.End(xlToRight)).Select
    
12.     .Range(Selection, Selection.End(xlDown)).Select
    
13.         Selection.FormulaR1C1 = "0"
    
14.         .Range("A1").AutoFilter
    
15.     End With
    
16. 
    
17. End Sub

複製代碼