友情提示:本文共有 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字典进行分类汇总》知识如果对你有帮助,请点赞收藏并留下你的评论。