EXCEL如何使用VBA数据字典:消除重复后的总结

副总管()

Set DIC = createobject ("scripting。字典")'定义了一个字典。

Arr = Range("A1:C500 ")'假设最大行数为500，将A1到C500的区域放入数组中。

For I = 1 to bound (arr)'从1循环到数组中的最大行数。

If arr(i，1)& lt；& gt""和arr(i，1)& lt；& gt“设备”然后建议空间和标题行。

Dic (ARR (I，1)) = DIC (ARR (I，1))+ARR (I，3)'使用字典删除重复项并累加数字。

如果…就会结束

接下来我

[E2]。调整大小(DIC。计数，1) =应用程序。转置(DIC。keys)'转置字典的键(即A列中不重复的值)放入e列。

[F2]。调整大小(DIC。计数，1) =应用程序。转置(DIC。Items)'转置字典的kItems(即累积结果)并将其放入e列。

末端接头