13讲数组和字典课件第一题的字典嵌套字典法

csmctjg

1. 
   # o* T, ^3 F2 b, t4 I
2. Sub aa()
   
3. Dim arr
   
4. Dim d As New Dictionary
   5 o) x) a9 o% @
5. Dim i As Integer, j As Integer
   ' c4 a3 W7 M" N+ ~; x
6. arr = Sheets("字典作列").[A2:F111]
   ) _3 n! L7 B& h2 W; M
7. For j = 1 To 5
   
8.     Set d(j) = New Dictionary
   ; t4 C$ F7 o9 b4 Q+ |0 F) {( }/ D
9.     For i = 1 To UBound(arr)
   
10.         d(j)(arr(i, 1)) = d(j)(arr(i, 1)) + arr(i, j + 1)
    
11.     Next i
    . J, n; j( B8 L0 Y* ]2 r/ O5 a
12. Next j
    
13. Sheets("字典作列").[H2].Resize(d(1).Count) = Application.Transpose(d(1).Keys)
    
14. For j = 1 To 5
    
15. Sheets("字典作列").Cells(2, j + 8).Resize(d(j).Count) = Application.Transpose(d(j).Items)
    3 k, O! p, t; H' ^
16. Next j
    
17. End Sub
    

复制代码

rxj_0414

字典d（Key为1-5，Item为5个子字典），每个子字典代表一种水果（Key为省份，Item为数量累计）。
有个疑惑：子字典中的项可以表示为 d.Items(0)(arr(i,1)) ,既然子字典也是字典，那么也应该继承字典的一些方法与属性，但为什么不能表示为d.Items(0).Items(0)？