標題: [發問] 如何在大量資料中尋找資料有否重複出現 [打印本頁]

---

作者: enoch    時間: 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欄合併

---

作者: tku0216    時間: 2014-12-30 13:44

回復 1# enoch

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

---

作者: rouber590324    時間: 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

---

作者: samwang    時間: 2014-12-31 08:22

回復 1# enoch

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)