[已解决]新人求助

zxx1212

创建字典时遇到如下问题，请看附件。
求大神帮助。
Sub test()
    Dim arr
    Dim d As New Dictionary
    Dim x As Integer
    arr = Worksheets("数据源").Range("a2").Resize(Worksheets("数据源").Range("a1").End(xlDown).Row - 1, 3)
    Debug.Print UBound(arr)
    With d
        For x = 1 To UBound(arr)
            d.Key(arr(x, 1)) = ""
        Next x
    End With
End Sub
错误提示：运行时错误32811
应用程序定义或对象定义错误

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-4 11:06

d.Key(arr(x, 1)) = ""
改为d(arr(x, 1)) = ""这样试试

跳转到最佳答案楼层

qh8600

d.Key(arr(x, 1)) = ""
改为d(arr(x, 1)) = ""这样试试

zxx1212

qh8600 发表于 2015-5-4 11:06
d.Key(arr(x, 1)) = ""
改为d(arr(x, 1)) = ""这样试试

不出错了，非常感谢。
咋回事啊，我一向用d.key()修改的。

qh8600

zxx1212 发表于 2015-5-4 11:11
不出错了，非常感谢。
咋回事啊，我一向用d.key()修改的。

d(arr(x, 1)) = ""这样就是添加字典啊
其中arr(x, 1)可以看成是key
""可以看成是item

zxx1212

qh8600 发表于 2015-5-4 11:17
d(arr(x, 1)) = ""这样就是添加字典啊
其中arr(x, 1)可以看成是key
""可以看成是item

谢谢，是我记错了{:021:}