EXCEL中查询有无重复记录

Question

比如在EXCEL一 列有如下记录，怎么知道记录有没有重复(找出aaa,cc有重复)
aaa
bbb
cc
dd
erf
dfd
afd
dsafsd
dfa
aaa
fgert
cc
adfa4er
fera
czz
ghr
d
fe

Answer 1

B1=IF(ISERROR(MATCH(A1,A2:A18,0)),"","y")
B1以下复制公式。

Answer 2

Sub Test()
    Dim Dic As Object, Itm
    Dim Arr, k%    Set Dic = CreateObject("Scripting.Dictionary")
    Arr = Range("A1", [A65536].End(3))
    For k = 1 To UBound(Arr)
        Dic(Arr(k, 1)) = Dic(Arr(k, 1)) + 1
    Next
    
    For Each Itm In Dic
    If Dic(Itm) = 1 Then Dic.Remove Itm
    Next
    
    MsgBox "重复记录为： " & Join(Dic.keys, ",")
    Set Dic = Nothing
End Sub