Excel怎么使用字典汇总求和数据

1、首先，打开我们的excel工作簿，查看我们要汇总的数据。

2、明白要求后，点击“开发工具”→“Visual Basic”进入编程界面。然后点击插入→模块。

3、将下面的代码复制，然后粘贴到模块中，代码如下：Sub 流水汇总() Dim Dic, arr, arr2, arr3 Set Dic 租涫疼迟= CreateObject("scripting.dictionary") maxh = Range("A100000").End(3).Row arr = Range("A2:B" & maxh).Value For i = 1 To UBound(arr) If Dic.exists(arr(i, 1)) Then Dic(arr(i, 1)) = arr(i, 2) + Dic.Item(arr(i, 1)) Else Dic(arr(i, 1)) = arr(i, 2) End If Next arr2 = Dic.keys arr3 = Dic.items Dic.RemoveAll Set Dic = Nothing Range("H2:H" & UBound(arr2) + 2).Value = Application.Transpose(arr2) Range("I2:I" & UBound(arr3) + 2).Value = Application.Transpose(arr3) End Sub

4、保存后，返回excel表格界面。点击“开发工具”→“宏”→选择“流水汇总”→“运行”。

5、运行后同一个人的业绩被汇总在一起了，效果如下：

6、创作不易，如果本篇经验对您有帮助，请帮忙投票和点赞，谢谢支持。