友情提示：本文共有 424 个字，阅读大概需要 1 分钟。
本文转载自公众号：凤国云静办公服务，作者：云静。本文着作权归原创作者所有，本人收藏此文仅作为学习之用，不作其他目的，如有侵权请联系我删除。
之前用函数进行分类汇总，大都是用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
收集不易，本文《用VBA字典进行分类汇总》知识如果对你有帮助，请点赞收藏并留下你的评论。
