案例演示
先看案例，下图中为一张销售表，每位客户分别在不同时间段购买过多次商品，现在需要提取出每位客户第一次的购买情况：
这里利用字典技术处理：
新建一个模块，输入以下代码，点击运行，即可提取出每位客户首次购买商品数量，动图展示如下：
以上是利用字典技术的一个小案例，今天我们系统的说下字典的作用！
初识字典
字典（Dictionary）：是微软Windows脚本语言中的一个很有用的对象。
字典可以理解为一个特殊的二维数组，由key（键）和Item组成，其中key具有唯一性和不重复性；
字典并不存在于VBA中，需要调用，调用方法：
Setd=CreateObject(scripting.Dictionary);
向字典中添加键、值：d.Addkey1,Item1;
获取字典的所有key：d.Keys，返回一个数组；
获取字典的所有Item：d.Items，返回一个数组；
由于字典的key是唯一的，所以当添加两个一样的key时会报错，如下图所示：
利用这一特性，我们可以对数据进行去重数据！
案例说明
回到刚开始的案例，把数据源的B列姓名作为key，数量作为Item，由于key具有唯一性，所以字典在存入相同用户的时候只会保留第一次存入用户的信息，后面的会报错，利用一句“OnErrorResumeNext”，发生错误，调至下一步，即可解决报错问题。
当然，针对原始数据源，因为要求客户最早一次购买数量，需要将数据按日期升序处理，在利用字典处理，不然无法返回正确结果。
代码明细如下图所示：
Sub提取首次购买数量()
OnErrorResumeNext
Setd=CreateObject(scripting.dictionary)
arr=Range(b1:cCells(Rows.Count,3).End(xlUp).Row)
Fori=1ToUBound(arr)
d.Addarr(i,1),arr(i,2)
Next
[e1].Resize(d.Count)=Application.Transpose(d.Keys)
[f1].Resize(d.Count)=Application.Transpose(d.Items)
EndSub
小结
字典在VBA中的应用还是很广泛的，这里举个代表性的例子，分享给大家，希望有所帮助，如果觉得有用，欢迎