vba提取不重复值

hdbk

结果：需要提取A，B两列的数据中的不重复值（在此为了练习vba dictionary)我尝试按照论坛大师的讲解的试着写了一段，但是为了提取2列数据要如何修改代码？
请大师帮忙，多谢！ 练习1.zip (15.61 KB, 下载次数: 198)

2018-5-30 20:55 上传

点击文件名下载附件
提取不重复值

excel玉米

其中这一句
For i = 2 To UBound(Arr)
    d(Arr(i, 1)) = “”
  Next
改为
For i = 2 To UBound(Arr)
    d(Arr(i, 1)) = Arr(i, 2)
  Next

hdbk

但是如果数据源中有3列或者更多，那么需要怎么修改代码呢？

半百

Sub abcd()
Dim i&, Myr&, Arr
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Myr = Range("a65536").End(xlUp).Row
Arr = Range("a1:E" & Myr)
For i = 1 To UBound(Arr)
    If Not d.EXISTS(Arr(i, 1)) Then
        d(Arr(i, 1)) = Array(Arr(i, 2), Arr(i, 3), Arr(i, 4), Arr(i, 5))
    End If
  Next
k = d.keys
t = d.items
Sheet2.Activate
Cells(1, 1).Resize(d.Count, 1) = Application.Transpose(k)
Cells(1, 2).Resize(d.Count, 4) = Application.Transpose(Application.Transpose(t))
'Cells(1, 1).Resize(1, 2) = Array("Item Code", "Item Name")
Set d = Nothing
End Sub