Excel查找重复值-VBA查找方法/步骤1/3分步阅读

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

2/3

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

Sub 同一列重复()

Dim Arr, i, Myr, d

Set d = CreateObject(Scripting.Dictionary)

Sheet1.Activate

.Clear

Myr = .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

3/3

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