返回列表 上一主題 發帖

請問用自訂清單，來進階篩選出資料?

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-10 
1# 跳轉到 »
發表於 2019-5-11 11:55 | 顯示全部帖子
回復 1# gaishutsusuru


上傳檔案是最基本的, 大家不想為了解題還另花時間去建樣本檔~~

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-10 
2#
發表於 2019-5-12 09:36 | 顯示全部帖子
回復 5# gaishutsusuru


陣列公式(三鍵完成)
=INDEX(A:A,SMALL(IF(COUNTIF($G:$G,$A$2:$A$99),ROW($2:$99),4^8),ROW(A1)))&""
右拉/下拉
註:此公式如果皆為[文字格式]

或:
=IFERROR(INDEX(A:A,SMALL(IF(COUNTIF($G:$G,$A$2:$A$99),ROW($2:$99)),ROW(A1))),"")

TOP

准提部林

帖子
2808 
主題
10 
精華
0 
積分
2864 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-5-10 
3#
發表於 2019-5-16 10:30 | 顯示全部帖子
可以用[進階篩選]
Sub 條件篩選()
Dim cRNG As Range
[I:J].Clear
Set cRNG = Range([G1], [G65536].End(xlUp))
If cRNG.Count = 1 Then Exit Sub
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=cRNG, _
     CopyToRange:=Range("I1:J1"), Unique:=False
End Sub

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題