大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第79讲内容：利用字典汇总数据的几种常见方法总结。
利用字典汇总并提取数据，是我们经常要用到的，利用字典排重性可以很方便得到一个主键不重复的数据汇总，在以往的各个章节中，我利用了各种方法达到这个目的，今日我就这个问题做一个总结，看看利用字典汇总数据的时候，都有哪些基本的方法，代码如何书写，还是以结合实例来讲解。
实例，如下面的截图，我们要根据A，B列数据的编号汇总一下各个编号的总金额。字典学习到这里，这个代码应该是很简单的了。
下面看我给出的代码：
Sub mynzsz_79() '第79讲 利用字典汇总数据的几种常见的方式总结
Sheets("79").Select
Set mydic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(myarr)
'第一种：用item方法
' mydic.Item(myarr(i, 1)) = mydic.Item(myarr(i, 1)) + myarr(i, 2)
'第二种：用dic(key)方法
'mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
'第三种：用dic.add方法
If Not mydic.exists(myarr(i, 1)) Then
mydic.Add myarr(i, 1), myarr(i, 2)
Else
'第1种写法：key写法
'mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
'第2中：item 写法
mydic.Item(myarr(i, 1)) = mydic.Item(myarr(i, 1)) + myarr(i, 2)
End If
Next
'清空数据区域，回填数据
[e:f].Clear
Range("a1:b1").Copy Range("e1")
Range("e2").Resize(UBound(mydic.Keys) + 1, 1) = Application.Transpose(mydic.Keys)
Range("f2").Resize(UBound(mydic.Keys) + 1, 1) = Application.Transpose(mydic.Items)
Set mydic = Nothing
End Sub
代码的截图：
代码分析：
1 上述代码中，我先后共有三种的书写方法，这三种方法都是实测可以利用的，学习的朋友可以根据自己的需要，或者自己的习惯选择其中的方法使用。
2 Set mydic = CreateObject("Scripting.Dictionary")
myarr = Range("a1").CurrentRegion.Value
上面的语句是创建字典，把要分析的数据装入字典，CurrentRegion的含义是返回Range对象,该对象代表当前的区域。当前区域是一个边缘是任意空行和空列组合成的范围，要理解这个概念，我在实际使用的时候，会更多的用区域的可控选择，大家可以在我的代码中经常看到，如：myarr = Range("a2:b" & Range("a2").End(xlDown).Row)
3 '第一种：用item方法
' mydic.Item(myarr(i, 1)) = mydic.Item(myarr(i, 1)) + myarr(i, 2)
上述语句是汇总数据的第一种写法，利用了键值item.
4 '第二种：用dic(key)方法
'mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
上述语句是汇总数据的第二种写法，更加的直观，但在字典多重嵌套的时候，看上去和理解起来有些难度了。
5 '第三种：用dic.add方法
If Not mydic.exists(myarr(i, 1)) Then
mydic.Add myarr(i, 1), myarr(i, 2)
Else
'第1种写法：key写法
'mydic(myarr(i, 1)) = mydic(myarr(i, 1)) + myarr(i, 2)
'第2中：item 写法
mydic.Item(myarr(i, 1)) = mydic.Item(myarr(i, 1)) + myarr(i, 2)
End If
上述语句是第三种写法是用mydic.Add和第二种方法的结合，理解起来不是很难的。
6 Range("e2").Resize(UBound(mydic.Keys) + 1, 1) = Application.Transpose(mydic.Keys)
Range("f2").Resize(UBound(mydic.Keys) + 1, 1) = Application.Transpose(mydic.Items)
上述语句回填数据，应用的时候非常的方便。
下面看代码的运行，是采用第三种方法代码：
今日内容回向：
1 利用字典在做数据汇总的时候，有哪些方法可以利用？
2 数据回填的时候，还有哪些方法呢？
閱讀更多 VBA專家 的文章
