- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
本帖最後由 luhpro 於 2020-5-21 00:46 編輯
Sheets("sheet1").Range(Cells(1, 1), Cells(250, 8)).AdvancedFilter Action:=xlFilterCopy, CriteriaRang ...
hungrn 發表於 2020-5-20 14:19 
改成這樣也可以 :
Sheets("sheet1").Range(Cells(1, 1), Cells(250, 8)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("sheet1").Range("U1:U2"), _
CopyToRange:=Sheets("sheet2").Range(Sheets("sheet2").Cells(1, 1), Sheets("sheet2").Cells(1, 8)), Unique:=False
問題關鍵應是用Cells形式來表示 "範圍" 要各別詳細指定而不是給參考位址(只給 Cells(1,1) 這種, 前面沒有告訴它放在哪個 Sheet),
至於 Sheets("sheet1").Range("A1:H1") 這種表示形式,本身就已內含前後都用這個Sheet了,
你的方式是個完整的儲存格表示方式(Sheet.Range). |
|
發表於 2020-5-21 00:16
| 