excel VBA 從大量資料中裡找出共同重複的資料 - Excel程式區

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2014-3-20 12:09 | 顯示全部帖子

回復 1# Duck

同一群組內有重複的話算嗎？

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

Sub ex()
Dim Rng As Range
Set d = CreateObject("Scripting.Dictionary")
Set Rng = Range([B1], [B1].End(xlDown))
For Each a In Rng
If Application.CountIf(Rng, a) > 1 Then d(a.Value) = ""
Next
If d.Count > 1 Then [D2].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub

複製代碼

用進階篩選也可以辦到

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]