关于字典嵌套数组存储数据的问题

Si疯子

如图，用字典dic嵌套数组arr，通过dic(1) = range("a1").currentregion.value的方式可以存入数据，但是通过循环的方式就无法存入数据。各位大佬帮忙解释一下，万分感谢！

1. Sub cc()
   
2.     Dim i As Integer, j As Integer
   
3.     Dim arr(1 To 5, 1 To 3)
   
4.     Dim dic As New Dictionary
   
5.    
   
6.     For i = 1 To 3
   
7.         dic(i) = arr
   
8.     Next i
   
9. '    dic(1) = Range("a1").CurrentRegion.Value
   
10.    
    
11.     For i = 1 To 5
    
12.         For j = 1 To 3
    
13.             dic(1)(i, j) = i + j
    
14.         Next j
    
15.     Next i
    
16. 
    
17.     MsgBox dic(1)(2, 1)
    
18. End Sub

复制代码

Si疯子

都在回复以前的帖子。。。2015年的都还顶上来了，最新的怎么没人回复啊。。。。

microyip

印象中，字典没有这种当成数组的直接操作吧？

microyip

你要搞清除一点，字典的括号是表示关键字，不能当成数组的index的

Si疯子

1. For i = 1 To 3
   
2. dic(i) = arr
   
3.     Next i

复制代码

这一段代码，就是把字典嵌套了一个数组啊，dic(1)就相当于arr了，dic(1)(1,1)就相当于arr(1,1)

Si疯子

microyip 发表于 2019-1-22 10:07
你要搞清除一点，字典的括号是表示关键字，不能当成数组的index的

For i = 1 To 3
dic(i) = arr
    Next i

这一段代码，就是把字典嵌套了一个数组，dic(1)就相当于arr了，dic(1)(1,1)就相当于arr(1,1)。我是这么理解的

microyip

Si疯子 发表于 2019-1-22 10:19
For i = 1 To 3
dic(i) = arr
    Next i

dic(i)=arr是将数组arr赋值给dic(i)这个i关键字字典，而不是嵌套

microyip

字典嵌套，指的是字典里再嵌套其他字典的意思

microyip

数组嵌套是可以用你的方法使用，字典嵌套不是那个意思

1. Sub 数组嵌套()
   
2.     Dim v1 As Variant, v2 As Variant
   
3.     ReDim v1(1 To 2)
   
4.     ReDim v2(1 To 3, 1 To 2)
   
5.     v1(1) = v2
   
6.     ReDim v2(1 To 5, 1 To 5)
   
7.     v1(2) = v2
   
8.     v1(2)(5, 5) = 10
   
9. End Sub

复制代码

microyip

字典嵌套，仅供参考

1. Sub 字典嵌套()
   
2.     Dim oDic As Object
   
3.     Set oDic = CreateObject("Scripting.Dictionary") '将oDic创建为字典
   
4.     oDic(1) = 0 '关键字1的字典是个数值
   
5.     Set oDic(2) = CreateObject("Scripting.Dictionary") '将oDic中关键字2创建为字典oDic(2)
   
6.     oDic(2)("A") = 10 'oDic(2)这个字典里关键字"A"的值是10
   
7.     If oDic.Exists(2) Then 'oDic字典存在关键字2
   
8.         If oDic(2).Exists("A") Then 'oDic(2)字典存在关键字"A"
   
9.             MsgBox oDic(2)("A")
   
10.         End If
    
11.     End If
    
12. End Sub

复制代码