关于字典items的一些疑问

Learner2022

1. Public Sub Test()
   
2. Dim i&, Myr&, Arr
   
3. Dim d, k, t
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Myr = Sheet1.[a65536].End(xlUp).Row
   
6. Arr = Sheet1.Range("a1:g" & Myr)
   
7. For i = 2 To UBound(Arr)
   
8.     d(Arr(i, 3)) = d(Arr(i, 3)) + 1
   
9. Next
   
10. k = d.keys
    
11. t = d.items
    
12. Sheet3.Activate
    
13. [a2].Resize(d.Count, 1) = Application.Transpose(k)
    
14. [b2].Resize(d.Count, 1) = Application.Transpose(t)
    
15. [a1].Resize(1, 2) = Array("姓名", "重复个数")
    
16. Set d = Nothing
    
17. End Sub
    

复制代码

在学习蓝桥大神的字典的教程的时候，对第八行代码不是很理解，d(Arr(i,3))代表的是Arr(i,3)对应的items，但是并没有字典并没有写入，还是说如果不写入items那么它的items默认就是为空（看了第二个实例感觉应该是这样的，但是网上搜也没搜到相关解释）

shiruiqiang

开始的items=空，t=d(Arr(i, 3)) + 1，是key的个数，赋值为items。新手理解。

zxsea_7426

d(Arr(i, 3)) = d(Arr(i, 3)) + 1这一句就是字典计数，有key ,有item啊呀

zxsea_7426

shiruiqiang 发表于 2023-1-2 14:10
这里的items=空，t=d(Arr(i, 3)) + 1，是key的个数，不是items。新手理解。

item不为空，只要记入字典，至少有计数1

shiruiqiang

zxsea_7426 发表于 2023-1-2 14:21
item不为空，只要记入字典，至少有计数1

学习了，个人理解有点问题。谢谢

Learner2022

zxsea_7426 发表于 2023-1-2 14:21
item不为空，只要记入字典，至少有计数1

应该是后面那个1赋值的吧，我把1改成2，items就变成了2，重复三次items就是6，如果把1改成0，那么无论重复几次items都是0，应该是0加多少次都是0