VBA字典应用:字典带数组，数组累加问题

如图示例：统计各个类别总数，共处理了多少？

源用上一篇字典的应用，处理方法一样的。但上一篇中字典的Item仅为单个数据，此示例中，Item要记录下两个数据，语句写法dic(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))；于是碰到重复时，item值求和就变成了数组的累加。

第一种的写法dic(arr(i, 1)) = Array(arr(i, 2) + dic(arr(i, 1))(0), arr(i, 3) + dic(arr(i, 1))(1)) 示例中加有VAL函数，是因为图片中数据是文本型数字。 释义：字典的Item赋值为一维数组，有两个数据，这种情况下的数组都是从 0 标号开始的，dic(arr(i, 1))(0)表示Item第一个数据，字典里存的是之前的数据，arr(i, 2)数组中是现在单元格的数据，两个数据分别相加，然后再组成新的数组赋值给字典。我觉得这写法语句太长，查找到第二种。

第二种语句写法：dic(arr(i, 1)) = Evaluate("{" & Join(dic(arr(i, 1)), ",") & "}+{" & Join(Array(arr(i, 2), arr(i, 3)), ",") & "}") 来源于Excelhome网站，意思：两数组的值对应相加。可能是 Evaluate固定格式要将数组表示成{3，5，7}这样的形式才能运算，语句也很长。

第三种写法：用一个数组变量，用Item赋值给它，将此变量的值分别计算，然后赋值回item。语句：brr=dic(arr(i, 1))；brr(0) = brr(0) + arr(i, 2)； brr(1) = brr(1) +arr(i, 3) ; dic(arr(i, 1)) = brr; Erase brr (注意brr的清空)。 在Item的数据项较多时，此法可用循环更方便。此法其实就是第一种的引申。

Set dic = CreateObject("scripting.Dictionary")

arr = Range("C2", [E2].End(xlDown))

For i = 1 To UBound(arr)

If dic.Exists(arr(i, 1)) Then

dic(arr(i, 1)) = Array(Val(arr(i, 2)) + dic(arr(i, 1))(0), Val(arr(i, 3)) + dic(arr(i, 1))(1))

Else

dic(arr(i, 1)) = Array(Val(arr(i, 2)), Val(arr(i, 3)))

End If

Next i

[G2].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.Keys)

[H2].Resize(dic.Count, 2) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(dic.Items))

这里最后一句释义：dic.Items是一个一维嵌套数组，要两次转置，变成个普通的二维数组。