字典的基本功能

Public Const PR_SALARY_GROUP  As String = "班组" '为TestC定义全局常量CopyEHLee1892
Public Const PR_SALARY_BONUS  As String = "绩效奖金" '为TestC定义全局常量
'===============一般写法=====================
Sub TestA()
    Dim Dic, Arr, I&, lRow&
    lRow = Sheet1.Cells(Rows.Count, 1).End(3).Row
    Arr = Sheet1.Range("a2:e" & lRow)
    Set Dic = CreateObject("Scripting.Dictionary")
    For I = 1 To UBound(Arr)
        Dic(Arr(I, 2)) = Dic(Arr(I, 2)) + Arr(I, 5)
    Next
End Sub
 
'=========DTitle字典作为列字段的变量===============
Sub TestB()
    Dim DTitle, Arr, I&, Dic
    Arr = Sheet1.[a1].CurrentRegion
    Set DTitle = CreateObject("Scripting.Dictionary")
    For I = 1 To UBound(Arr, 2)
        DTitle(Arr(1, I)) = I
    Next
    Set Dic = CreateObject("Scripting.Dictionary")
    For I = 2 To UBound(Arr)
        Dic(Arr(I, DTitle("班组"))) = Dic(Arr(I, DTitle("班组"))) _
            + Arr(I, DTitle("绩效奖金"))
    Next
End Sub

'===========训练多流汗，战时少流血！编写多常量，更改不挠头！===============
Sub TestC()
    Dim DTitle, Arr, I&, Dic
    Arr = Sheet1.[a1].CurrentRegion
    Set DTitle = CreateObject("Scripting.Dictionary")
    For I = 1 To UBound(Arr, 2)
        DTitle(Arr(1, I)) = I
    Next
    Set Dic = CreateObject("Scripting.Dictionary")
    For I = 2 To UBound(Arr)
        Dic(Arr(I, DTitle(PR_SALARY_GROUP))) = _
            Dic(Arr(I, DTitle(PR_SALARY_GROUP))) + _
            Arr(I, DTitle(PR_SALARY_BONUS))
    Next
End Sub

 数据源：