EXCEL中查询有无重复记录
比如在EXCEL一 列有如下记录，怎么知道记录有没有重复(找出aaa,cc有重复)aaa
bbb
cc
dd
erf
dfd
afd
dsafsd
dfa
aaa
fgert
cc
adfa4er
fera
czz
ghr
d
fe B1=IF(ISERROR(MATCH(A1,A2:A18,0)),"","y")
B1以下复制公式。
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
VB水区还有技术帖。。真牛。。
+1 做个记号…… 使用“筛选、高级筛选、选择不重复的记录”功能
补充：VB , 非技术类
