我们都知道，Excel VBA字典最擅长的使用场景之一就是数据分组和统计，比如将数据按照某个字段进行分组，然后统计每个组内的数据量或求和等操作。下面我们就用一个简单的实际案例来说明VBA字典在分组统计方面的应用。1、问题提出按订单产品编号汇总销售金额，结果放到另一张Sheet表中。通过分析我们就知道，以上的这个问题就非常适合用VBA字典来实现，分组就是按订单产品编号来分组，销售金额的汇总统计只不过是要先用下单数量乘以商品单价而已。2、实际代码Sub 汇总() Dim arr, i% arr = Sheets(1).[a1].CurrentRegion Set d = CreateObject("scripting.dictionary") For i = 2 To UBound(arr) d(arr(i, 2)) = d(arr(i, 2)) + Val(arr(i, 5)) * Val(arr(i, 6)) Next With Sheets(2) .[a2:b10000].ClearContents .[a2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items)) End WithEnd Sub3、
………………………………
