返回列表 上一主題 發帖

跨工作表篩選

hungrn

帖子
20 
主題
6 
精華
0 
積分
76 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2012-2-3 
最後登錄
2023-12-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-5-20 13:11 | 顯示全部帖子

跨工作表篩選

本帖最後由 hungrn 於 2020-5-20 13:17 編輯

各位先進好

工作表一的資料要篩選至工作表二...如果用以下range指定範圍方式可以
Sheets("sheet1").Range("A1:H250").Sheets("sheet1").Range("A1:H250").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("sheet1").Range("U1:U2"), _
CopyToRange:=Sheets("sheet2").Range("A1:H1"), Unique:=False
因為工作表一的內容會隨著資料的增減而改變 row ,所以想用 cells 方式指定範圍..但會顯示物件定義錯誤..是AdvancedFilter  不能用cells 還是?
Sheets("sheet1").Range(Cells(1, 1), Cells(250, 8)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("sheet1").Range("U1:U2"), _
CopyToRange:=Sheets("sheet2").Range(Cells(1, 1), Cells(1, 8)), Unique:=False

麻煩各位先進指導..感謝
收藏 分享

hungrn

帖子
20 
主題
6 
精華
0 
積分
76 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2012-2-3 
最後登錄
2023-12-8 
2#
發表於 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").Cells(1, 1), Unique:=False

改成以上方式即可..

TOP

        靜思自在 : 能幹不幹，不如苦幹實幹。
返回列表 上一主題