返回列表 上一主題 發帖

[發問] 進階篩選

Scott090

帖子
523 
主題
56 
精華
0 
積分
601 
點名
86  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-4-14 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
1# 跳轉到 »
發表於 2015-8-27 10:28 | 顯示全部帖子
回復 3# fashionable3000


    在 B3 鍵入 ="=A0020"  使 儲存格 B3 顯示  =A0020

試試看

TOP

Scott090

帖子
523 
主題
56 
精華
0 
積分
601 
點名
86  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-4-14 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
2#
發表於 2015-8-27 15:43 | 顯示全部帖子
回復 5# fashionable3000

  參考 4#，  請注意：儲存格 B3 要打入 ="=A0020"  ，格子內要看到 =A0020
不要只打入 ="A0020" 而看到 A0020 在格子裡面
  1. Sub test1()
  2.     Range("A2:A6").AdvancedFilter _
  3.     Action:=xlFilterCopy, _
  4.     criteriarange:=Range("B2:B3"), _
  5.     copytorange:=Range("C2:C6"), _
  6.     unique:=False
  7. End Sub

  9. Sub test2()
  10.     Range("A10:A14").AdvancedFilter _
  11.     Action:=xlFilterCopy, _
  12.     criteriarange:=Range("B10:B11"), _
  13.     copytorange:=Range("C10:C10"), _
  14.     unique:=False
  15. End Sub
複製代碼
一般 "準則" 橫向列 (Row)儲存格內放 "AND" ，縱向行(Column)儲存格內放 "Or"；
可以使用 =, <,<=,>,>=, * ，
以下儲存格的準則 是  cells(18,"B") or cells(19,"B")
           A                    B                 C
17    ID                         ID                      ID
18    A0020               =A0020           A0020
19    A0020A       =*B                   A0020B
20    A0020B               
21    AA0020
  1. Sub test3()
  2.     Range("A17:A21").AdvancedFilter _
  3.     Action:=xlFilterCopy, _
  4.     CriteriaRange:=Range("B17:B19"), _
  5.     CopyToRange:=Range("C17"), _
  6.     Unique:=False
  7. End Sub
複製代碼

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題