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

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: w8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-17
最後登錄: 2014-10-5

9^# 跳轉到 »

發表於 2014-4-11 22:04 | 只看該作者

回復 8# Hsieh

活頁簿1.rar (9.25 KB)

不好意思，您好~前三個工作表是要"各自"篩選出現80%以上的字母出來，再來，工作表4是假設前三個工作表篩選出來後結果的整合起來的資料(附件上工作表4的結果不是正確結果)，接著我們如何顯示出工作表4裡面B欄位上每個英文字母在工作表4上出現的比率為多少?例如:字母A在工作表4上出現的百分比為1/14(約為7%)

請問這些該如何用VBA撰寫?

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

8^#

發表於 2014-4-11 21:27 | 只看該作者

回復 7# Duck

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

學海無涯_不恥下問

TOP

Duck

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: w8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-17
最後登錄: 2014-10-5

7^#

發表於 2014-4-11 20:11 | 只看該作者

回復 4# Hsieh

真的不好意思~請問Hsieh先生，我對於VBA真的還不是很熟悉，所以想請問您有辦法幫幫我昨日的那個問題嗎??
還是我應該再重新發貼問呢?

TOP

Duck

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: w8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-17
最後登錄: 2014-10-5

6^#

發表於 2014-4-10 11:16 | 只看該作者

回復 4# Hsieh

不好意思您好，另外想在更進階的問您，上次找的是全部同時出現再篩選出來的結果，但現在我要換成用百分比去篩選出結果要如何改VBA?

假設有三個如圖片上這樣的工作表單，我們如何要寫VBA篩選出來80%出現的英文字母?

接著再來，那三個工作表單都篩選出出現80%的字母後，把三個表單的篩選結果結合在一起後，我們要如何計算出他們各自出現的百分比例是多少?

想問您這些要如何用VBA去撰寫??? 可以幫幫我嗎??:'(

TOP

Duck

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: w8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-17
最後登錄: 2014-10-5

5^#

發表於 2014-3-20 15:46 | 只看該作者

回復 4# Hsieh

成功了! 十分感謝高手的幫忙

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 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

Duck

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: w8
軟體版本: office2010
閱讀權限: 10
性別: 女
註冊時間: 2014-3-17
最後登錄: 2014-10-5

3^#

發表於 2014-3-20 14:06 | 只看該作者

因為已經篩選過，所以基本上同一個群組不會有重複

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2014-3-20 12:09 | 只看該作者

回復 1# Duck

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

學海無涯_不恥下問

TOP

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

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

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