将多列数据汇总到一列保留不重复值，总是显示错误

Lik0795

大神，我想用VBA将A~D列的数据汇总到F列，然后去除重复值，但老师出错，百思不得其解！如能解决，感激不尽啊~~
Private Sub CommandButton1_Click()   '获取不重复的订货号
  Dim d As New Dictionary
  Dim r%, c%, i%, j%
  Dim arr, brr
  With Worksheets("sheet10")
    arr = .Range("a3:d5000")
    For j = 1 To 4 Step 1
      For i = 1 To UBound(arr)
        d(arr(i, j)) = ""
      Next
    Next
    .Range("f3").Resize(d.Count, 1) = Application.Transpose(d.Keys)
  End With
End Sub

Lik0795

northwolves

未绑定引用库。可以使用后期绑定
Private Sub CommandButton1_Click()   '获取不重复的订货号
  Dim d As Object, i&, j&, arr
  Set d = CreateObject("scripting.dictionary")
    arr = Range("a3:d5000")
    For j = 1 To 4 Step 1
      For i = 1 To UBound(arr)
        d(arr(i, j)) = ""
      Next
    Next
[f3].Resize(d.Count) = Application.Transpose(d.Keys)
End Sub

kszcs

northwolves 发表于 2017-12-16 22:09
未绑定引用库。可以使用后期绑定
Private Sub CommandButton1_Click()   '获取不重复的订货号
  Dim d As ...

难得看见版主来一次。谢谢

Lik0795

northwolves 发表于 2017-12-16 22:09
未绑定引用库。可以使用后期绑定
Private Sub CommandButton1_Click()   '获取不重复的订货号
  Dim d As ...

因换工作的原因，好久都没有学VBA了，刚看到northwolves的回复，非常抱歉没有及时反馈。
程序测试过，问题解决了，非常感谢northwolves大侠的指点！！！！