关于字典数据取出的问题

his803

正在学VBA字典嵌套，如下图，为何[D9]单元格放数据有错误？哪位老师指点一下，先谢为敬！

his803

Sub test()
Dim i, j, arr
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
For i = 2 To UBound(arr)
    For j = 4 To UBound(arr, 2)
        If Not d.exists(arr(i, 1)) Then
            Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
            If Not d(arr(i, 1)).exists(arr(i, 2)) Then
                Set d(arr(i, 1))(arr(i, 2)) = CreateObject("scripting.dictionary")
                d(arr(i, 1))(arr(i, 2))(arr(1, j)) = arr(i, j)
            End If
        End If
    Next
Next
Range("d9") = d([a9].Value)([b9].Value)([c9].Value)
End Sub

ykcbf1100

和上题差不多的。
只有二个维度，你硬要搞成3个维度，增加难度？

his803

谢谢老师无私帮助

loreijine924

请问为什么要用字典这么做？有什么特殊用途？

his803

loreijine924 发表于 2022-12-1 12:40
请问为什么要用字典这么做？有什么特殊用途？

我现在学习字典嵌套，你有什么优化方法吗？真诚向你学习

his803

loreijine924 发表于 2022-12-1 12:40
请问为什么要用字典这么做？有什么特殊用途？

我学了下字典的2级嵌套，所以想试着搞字典多级嵌套。

loreijine924

his803 发表于 2022-12-1 13:07
我学了下字典的2级嵌套，所以想试着搞字典多级嵌套。

我学了没多久
接触到的字典，感觉就是去重功能比较好
多级嵌套了有什么用？有实际的应用例子吗？

于箱长

怪不得本不需要嵌套的字典就能完成的工作，为啥非得搞个嵌套，明白了，明白了

liulang0808