Excel查找重复值-VBA查找

Excel查找重复值-VBA查找

方法/步骤

打开需要查找的excel表,查找需要的查找的A列

使用快捷键“ALT+F11”,弹出VBA编辑器,在编辑框中输入如下代码

Sub 同一列重复()

Dim Arr, i&, Myr&, d

Set d = CreateObject("Scripting.Dictionary")

Sheet1.Activate

[c:c].Clear

Myr = [a1000000].End(xlUp).Row

Arr = Range("a1:A" & Myr)

For i = 2 To UBound(Arr)

If Not d.exists(Arr(i, 1)) Then

d(Arr(i, 1)) = ""

Else

Cells(i, 3) = “重复”

End If

Next

End Sub

则会在重复值的C列显示重复2个字

原作者:ilysw

本文内容整理自网络, 文中所有观点看法不代表淘大白的立场