返回列表 上一主題 發帖

[發問] excel VBA 從大量資料中裡找出共同重複的資料

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
114  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2014-3-20 12:09 | 顯示全部帖子
回復 1# Duck

同一群組內有重複的話算嗎？
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
114  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2014-3-20 14:41 | 顯示全部帖子
本帖最後由 Hsieh 於 2014-3-20 14:47 編輯

回復 3# Duck
  1. Sub ex()
  2. Dim Rng As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set Rng = Range([B1], [B1].End(xlDown))
  5. For Each a In Rng
  6.    If Application.CountIf(Rng, a) > 1 Then d(a.Value) = ""
  7. Next
  8. If d.Count > 1 Then [D2].Resize(d.Count, 1) = Application.Transpose(d.keys)
  9. End Sub
複製代碼
用進階篩選也可以辦到
play.gif
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
114  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2014-4-11 21:27 | 顯示全部帖子
回復 7# Duck

問題是並不清楚你的需求
是要每個工作表各別篩選還是3個工作表合計後篩選？
佔80%是以上還是剛好？
做個簡單範例檔壓縮上傳說明應該比較容易了解你的需求
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
114  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-17 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2014-4-17 22:38 | 顯示全部帖子
回復 10# Duck


    計算各自母的出現率不難，但實在不解前3個工作表的字母要求出現率在80%以上
幾乎不可能啊!
假設有，那就是要顯示到工作表4的B欄嗎?
那跟A欄的資料又有甚麼關聯?
上傳的範例最好是能顯示想要的結果，否則很難看出你的需求
學海無涯_不恥下問

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題