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、创作不易，如果本篇经验对您有帮助，请帮忙投票和点赞，谢谢支持。