语录网随笔 vba字典与数组知识与实例,VBA字典应用:字典带数组,数组累加问题

vba字典与数组知识与实例,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是一个一维嵌套数组,要两次转置,变成个普通的二维数组。

本文来自网络,不代表语录网立场,转载请注明出处:https://www.chinansn.com/article-1-f2022051719320774b1-0.html