返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-10 11:15 | 只看該作者

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

問題:
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 數據()

  3. With Sheets("工作表1")

  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

  17. End Sub
複製代碼
收藏 分享

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題