如图示例:统计各个类别总数,共处理了多少?
源用上一篇字典的应用,处理方法一样的。但上一篇中字典的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是一个一维嵌套数组,要两次转置,变成个普通的二维数组。