返回列表 上一主題 發帖

可以請問Hsieh大大嗎

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-12-26 09:35 | 顯示全部帖子
回復 3# gn00487767
"但是進階篩選我無法在另一個工作表顯示"   可以使用 vba  
參照你在 http://forum.twbts.com/viewthread.php?tid=2190&extra= 的附檔
Sheets("資料表").Range("A1").CurrentRegion  資料庫->獨自一個工作表
Sheets("表格").[K1:L2]                                   篩選準則 ->獨自一個工作表
Sheets("Sheet3").[A1]                                   複製列的目標範圍 ->獨自一個工作表
  1. Sub Ex()
  2.     Sheets("Sheet3").[A1].CurrentRegion = ""
  3.     Sheets("資料表").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("表格").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]
  4. End Sub
複製代碼

篩選準則 (CriteriaRange) Sheets("表格").[K1:L2] 如圖




For Each A In  .Range(.[A2], .[A2].End(xlDown)) ( 物件的集合 )
A  為 物件的集合的元素
在此為   依序 [A2] ->[A3]->[A4]....

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題