EXCEL VBA Objective dictionary程式的问题

dogfire4169

请问 If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("Scripting.dictionary") 这一段是什么意思？？
是d.(arr(i, 1)) 不存在时，把 d(arr(i, 1))设定成d(arr(i, 1)) = CreateObject("Scripting.dictionary") 的意思吗？？
有懂Objective dictionary的大大能解释一下吗？？excel VBA的小白，请多见谅！！！

Sub test()
Dim arr, i&, d As Object, key, x, temp&, str$, res, m&
Set d = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion 'CurrentRegion是arr = Range("A1:C3320")

For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("Scripting.dictionary")
If arr(i, 3) <> "" Then d(arr(i, 1))(arr(i, 3)) = d(arr(i, 1))(arr(i, 3)) + 1
Next

大灰狼1976

字典嵌套，我一般用到这个就是为了做多级下拉菜单。

mmwwdd

你的理解很对,就是字典嵌套,如果不存在这个arr(i,1)这个关键字,就用它在嵌套