返回列表 上一主題 發帖

[發問] 如何在大量資料中尋找資料有否重複出現

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-12-30 11:33 | 只看該作者

[發問] 如何在大量資料中尋找資料有否重複出現

本帖最後由 enoch 於 2014-12-30 11:37 編輯

檔案中A欄是 B, C欄的合併,  
D欄是用公式=Countif(A:A,A1) 去檢查A欄資料是否大於1 (資料重複)
再篩選D欄大過1的內容
但由於資料太多(超過8萬行), 檔案會變得非常慢,

請問有沒有其它更好方法可以在大量資料中尋找資料有否重複出現
例如不需新增A欄將B及C欄合併

countif.zip (6.08 KB)

收藏 分享

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
4#
發表於 2014-12-31 08:22 | 只看該作者
回復 1# enoch

我也認為tku0216的移除重複是可以的
不知版大測試解果結果如何??

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2014-12-30 16:47 | 只看該作者
DEAR SIR
資料量大用VBA應比較快
如下會將 A欄自動依有資料之列數秀出B欄+C欄
然後 D欄自動秀出有重覆之儲存格內容LIST(可依需求改為其他東東秀出)

Sub AA()
X = Sheet1.[B65536].End(xlUp).Row
For A = 1 To X
Sheet1.Cells(A, 1) = Sheet1.Cells(A, 2) & Sheet1.Cells(A, 3)
Next
On Error Resume Next
Dim Myarr()
For Each A In Range([A1], [A65536].End(xlUp))
If WorksheetFunction.CountIf(Range([A1], [A65536].End(xlUp)), A) > 1 Then
    If WorksheetFunction.Match(A, Myarr, 0) = 0 Then
    ReDim Preserve Myarr(i)
    Set Myarr(i) = A
    i = i + 1
    End If
End If
Next
[D2].Resize(i, 1) = WorksheetFunction.Transpose(Myarr)
End Sub
羅

TOP

tku0216

帖子
209 
主題
43 
精華
0 
積分
262 
點名
0  
作業系統
win 7 
軟體版本
office 20** 
閱讀權限
20 
性別
男 
註冊時間
2011-11-3 
最後登錄
2017-4-16 
2#
發表於 2014-12-30 13:44 | 只看該作者
回復 1# enoch

試過"移除重複"功能嗎？他可以將多餘資料移除，在資料→資料工具→移除重複。

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題