请教VBA代码问题

tonytg

关于下面这段代码，向各位高手请教两个问题：
1. d(arr(i, 1)) 与 arr(i, 1) 的区别是什么？
2. 为什么汇总结果会固定落在 单元格D1 开始的区域？

Sub TEST()
Dim d As Object, arr, i%
Set d = CreateObject("scripting.dictionary")
arr = Range("A1:B6")
For i = 1 To 6
    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
Next i
[d1].Resize(1, 2) = Array("Name", "Total")
[d2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

wodewan

1. d(arr(i, 1)) 与 arr(i, 1) 的区别是什么？
答：d(arr(i, 1))是字典{键<KEY>,值<ITEM>}对的值，其中arr(i,1)的值是字典的<KEY>，表达式 d(arr(i, 1)) 得到的结果是字典的值<ITEM>。      而表达式arr(i,1)是数组第i行第1列的值。一个字典，一个数组，只是这里字典的key是引用的数组的值。
2. 为什么汇总结果会固定落在 单元格D1 开始的区域？
答：因为这一句：[d1].Resize(1, 2) ，是以D1为起点进行的单元格区域的扩展。

tonytg

非常感谢！这样就能明白本例的全部代码了！

tonytg

不好意思，这里面有句我仍然似懂非懂，d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)，当i=1的时候， d(arr(1, 1))的值是A，arr(1, 2)的值是1，A与1怎么可以相加呢？

wodewan

tonytg 发表于 2019-11-6 11:50
不好意思，这里面有句我仍然似懂非懂，d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)，当i=1的时候， d(arr(1,  ...

1.   字典的每个元素都有一个键（KEY）和 值（item），它们是成对出现的，就像这样：d（key）=item；
2.   当i=1 时，arr(i,1)="A" ,d(arr(i,1))的结果是d("A") 不是"A”。 那表达式d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)就可以变为  d("A")=d("A")+1
3.   d("A")=d("A")+1，在数学上这个是不成立的，但在VBA里，它计算的顺序是由右向左的，也就是说先计算d("A")+1，然后再把这个结果赋值给左边的d("A")。
4.  如果理解了上面的就简单了，那就是求d("A")=？？ ，因为一开始的时候，字典是空的，所以d("A")= 空值。如下图：

空值在计算时，VBA会自动转换为0，那第一轮循环的结果d("A")=0+1=1，这时d(arr(i,1))=1.

tonytg

讲解得详细，透彻，非常感谢！