任务要求：快速汇总每一位送货人员的送货金额。注意：送货金额依据人员系数进行平分。要求求得每个人的送货金额数

Dim ws = (New excel).activesheet
        Dim arr = ws.CurrentRegion(3, "A").value
‘arr获取到A3区域，注意包含标题头
        Dim sz() As String
        Dim qian As Single‘定义钱数，考虑到钱有小数，使用single,不能使用整数
        ’定义一个字典，键为string类型存储姓名，值为钱数，使用single浮点数
        Dim dict As New Dictionary(Of String, Single)
        Dim r As Integer
        ’从第2行开始（除开标题）进入主循环
        For r = 2 To UBound(arr)
            sz = arr(r, 4).ToString.Split(",")‘对第4列名单拆解成数组sz
            qian = Val(arr(r, 3)) / sz.Length '钱数平分，Val(arr(r, 3))表示总钱数，sz.Length表示名单个数

            For i = 0 To UBound(sz)
                If Not dict.ContainsKey(sz(i)) Then ‘’对名单中每个姓名进行查找，如果在字典中没找到
                    dict.Add(sz(i), qian)’ 就直接添加
                Else
                    dict(sz(i)) = dict(sz(i)) + qian  如果找到就累加到值
                End If
            Next
        Next

        '输出到listbox查看
        r = 4
        For Each d In dict
            ListBox1.Items.Add(d.Key + "  " + CStr(d.Value))
  ‘这行是输出到界面方便中期调试使用，如果正确再输出到表格
            '输出到表格F G列中
            ws.Setcell(r, "F", d.Key)
            ws.Setcell(r, "G", d.Value)
            r = r + 1
        Next


        'Me.Text = CStr(UBound(arr, 1)) + "  " + CStr(UBound(arr, 2))
    End Sub

知识要点：

字典是一个键－值对，一个键对应一个值。

键1  ＝> 值1
键2  ＝> 值2
键3  ＝> 值4
.....
键n  ＝> 值n

’定义一个字典，键为string类型存储姓名，值为钱数，使用single浮点数
        Dim dict As New Dictionary(Of String, Single)
If Not dict.ContainsKey(sz(i)) Then ‘’对名单中每个姓名进行查找，如果在字典中没找到
                    dict.Add(sz(i), qian)’ 就直接添加
                Else
                    dict(sz(i)) = dict(sz(i)) + qian  如果找到就累加到值
                End If

ContainsKey是查找是否包括键，

dict(sz(i))获得字典值,dict(sz(i)) = dict(sz(i)) + qian直接在值上累加钱。