用VBA字典进行分类汇总

本文转载自公众号：凤国云静办公服务，作者：云静。本文著作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权请联系我删除。

之前用函数进行分类汇总，大都是用sumif、sumifs、SUMPRODUCT，但前提是汇总的对像必须是非重复的，且已经存在。如果没有这个前提，而要用函数汇总就必须先进行一个去重处理。

今天，我们来用VBA字典进行处理，可以一步到位。去重与汇总一步到位。

代码如下：

Sub DicTest()

    arr = [a1].CurrentRegion

    Set d = CreateObject('Scripting.Dictionary')

    For i = 2 To UBound(arr)

        d(arr(i, 1)) = d(arr(i, 1)) arr(i, 3)

    Next

    [g2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))

End Sub