用字典嵌套统计

blackttea1

学习一下知识

wggx4

看了很久的字典，这个例子好像在字典嵌套比较明了，或许对字典嵌套是怎么回事有些明白了。感谢楼主的分享。

米莉沙

学习收藏，细细消化

yzxfelix

Zamyi 发表于 2013-5-10 09:00
虽说现在基本不必考虑资源紧张的问题，但速度也须考虑吧，1楼用了三个数组，和n+1个字典，实际上一个字典和 ...

持不同看法，显然一楼的做法，具有高度的灵活性，可以随意定位，捣乱顺序。

yzxfelix

赵刚老师拆分锁定行数，在进行计算求和的方法，缺乏灵活性。增加列的情况下，或者任意变动顺序的情况下，不好维护。

xkzb

学习收藏，细细消化

全党

Sub Macro1()
Dim arr, brr, crr, d As Object, i&, j&
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion '原始数据

For i = 2 To UBound(arr)
    Set d(arr(i, 1)) = CreateObject("scripting.dictionary") '设置字典嵌套
Next
For i = 2 To UBound(arr)
    For j = 2 To UBound(arr, 2)
        d(arr(i, 1))(arr(1, j)) = d(arr(i, 1))(arr(1, j)) + arr(i, j)
    Next
Next
Range("a15") = "店名/月份"
Range("a16").Resize(d.Count, 1) = Application.Transpose(d.Keys)
Range("b15").Resize(1, d(arr(i - 1, 1)).Count) = d(arr(i - 1, 1)).Keys
brr = Range("a15").CurrentRegion '目标数据
ReDim crr(1 To UBound(brr) - 1, 1 To UBound(brr, 2) - 1)
For i = 2 To UBound(brr)
    For j = 2 To UBound(brr, 2)
        crr(i - 1, j - 1) = d(brr(i, 1))(brr(1, j))
    Next
Next
Range("b16").Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

h2016

学习收藏，细细消化