如图示例：统计各个类别总数，共处理了多少？
源用上一篇字典的应用，处理方法一样的 。但上一篇中字典的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")
【VBA字典应用：字典带数组，数组累加问题】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是一个一维嵌套数组，要两次转置 ， 变成个普通的二维数组 。
