怎样剔除A列中重复的数据，在B列中显示出来？

zhangcheng6688 · 发表于 2024-3-7 06:44

iu950 发表于 2023-9-19 10:02
用字典搞一下

向楼主学习字典，感谢

zhangcheng6688 · 发表于 2024-3-7 06:45

Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a2:a" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = ""
End If
Next
[b2].Resize(d.Count) = Application.WorksheetFunction.Transpose(d.keys)
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 怎样剔除A列中重复的数据，在B列中显示出来？