VBA实现寻找一列里相同数据

用VBA中的字典可以轻松实现

详细 *** 作步骤如下：

数据源：

Alt+F11，VBA编辑中输入如下代码：

运行，返回工作表，可以看到结果：

Sub test()

Dim arr, c, a&

arr = Intersect(Range("a:d"), ActiveSheet.UsedRange)

Set Zd = CreateObject("scripting.dictionary")

For Each c In arr

If c <>"" Then a = Zd(c): Zd(c) = a + 1

Next

[f2].Resize(Zd.Count) = Application.Transpose(Zd.keys)

[g2].Resize(Zd.Count) = Application.Transpose(Zd.items)

End Sub

你要找相同的可用一楼的办法，如果想只保留一个记录，即去掉重复的记录，可用高级筛选，选中B列，数据--筛选--高级筛选，条件区域为:$B:$B，复制到:填你要复制到的区域，点选:筛选不重复的记录，确定就行了

---