案例演示

先看案例，下图中为一张销售表，每位客户分别在不同时间段购买过多次商品，现在需要提取出每位客户第一次的购买情况：

这里利用字典技术处理：

新建一个模块，输入以下代码，点击运行，即可提取出每位客户首次购买商品数量，动图展示如下：

以上是利用字典技术的一个小案例，今天我们系统的说下字典的作用！

初识字典

字典（Dictionary）：是微软Windows脚本语言中的一个很有用的对象。

字典可以理解为一个特殊的二维数组，由key（键）和Item组成，其中key具有唯一性和不重复性；

字典并不存在于VBA中，需要调用，调用方法：

Set d = CreateObject("scripting.Dictionary");

向字典中添加键、值：d.Add key1, Item1;

获取字典的所有key：d.Keys，返回一个数组；

获取字典的所有Item：d.Items，返回一个数组；

由于字典的key是唯一的，所以当添加两个一样的key时会报错，如下图所示：

利用这一特性，我们可以对数据进行去重数据！

案例说明

回到刚开始的案例，把数据源的B列姓名作为key，数量作为Item，由于key具有唯一性，所以字典在存入相同用户的时候只会保留第一次存入用户的信息，后面的会报错，利用一句“On Error Resume Next”，发生错误，调至下一步，即可解决报错问题。

当然，针对原始数据源，因为要求客户最早一次购买数量，需要将数据按日期升序处理，再利用字典处理，不然无法返回正确结果。

代码明细如下图所示：

Sub 提取首次购买数量()
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
arr = Range("b1:c" & Cells(Rows.Count, 3).End(xlUp).Row)
For i = 1 To UBound(arr)
d.Add arr(i, 1), arr(i, 2)
Next
[e1].Resize(d.Count) = Application.Transpose(d.Keys)
[f1].Resize(d.Count) = Application.Transpose(d.Items)
End Sub

小结

字典在VBA中的应用还是很广泛的，这里举个代表性的例子，分享给大家，希望有所帮助，如果觉得有用，欢迎关注我！