如何找出重複資料

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-12-21 14:54 | 只看該作者

回復 1# enoch
如2#的圖示第一個工作表篩選不重複的資料 (Unique:=True) 到第2個工作表

Option Explicit
Sub Ex()
Sheets(1).Range("A1:A17").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets(2).Range("A1"), Unique:=True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2013-12-22 23:00 | 只看該作者

用COUNTIF很慢
建議用進階篩選 - 勾選不重複資料 - 勾選複製到其他地方

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

5^#

發表於 2013-12-23 09:49 | 只看該作者

多謝各位前輩指教, 但若果我想找出那些資料是重複呢?
因重複代表了資料輸入出錯, 若果發現重複, 找出重複資料
請再指教

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

6^#

發表於 2013-12-24 12:53 | 只看該作者

排序後再處理會比較快
如有萬筆資料，用COUNTIF會很慢，建議先用排序後再處理會比較快

例如 A欄排序後
於 B2輸入公式 =IF(OR(A2=A1,A2=A3),1,0) 點右下黑方點往下全部複製
1表是重覆，0表示沒有重覆

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

7^#

發表於 2013-12-24 12:59 | 只看該作者

如果不排序

B2 =IF(MATCH(A2,A:A,)=ROW(),0,1)
0表示沒有重覆，1表是有重覆

但此公式只是標示第二筆以後重覆資料為 1 ，進行篩選 1 後，一般直接刪除，或剪下貼至他欄

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2013-12-24 13:02 | 只看該作者

回復 6# ML089

排序後再處理會比較快
如有萬筆資料，用COUNTIF會很慢，建議先用排序後再處理會比較快

例如 A欄排序後
於 B2輸入公式 =IF(OR(A2=A1,A2=A3),1,0) 點右下黑方點往下全部複製
1表是重覆，0表示沒有重覆

以上重複項全部標示為 1

若需要第二項以後重覆標示為1時
B2 =IF(A2=A1,1,0)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式