学习了字典后，我们知道从字典中读取数据速度超级快，所以我们今天就学习下如何利用字典实现查询功能。
一个表里存放着商品的信息，在采购单中输入商品编号时，希望品名，规格，单价能够自动匹配上去。
思路：
把商品信息写入字典，一个商品对应的有品名、规格、单价三个数据，一个item怎么装三个数据呢？这就是难点所在，如果能把品名、规格、单价三个数据写入一个item中，在采购单中输入商品编号时，在字典中查找key(商品编号)对应的item放入三个对应的单元格中即可。我们先看下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, d As Object, i%
Set d = CreateObject("scripting.dictionary")
arr = Sheets("商品信息").Range("a2", Sheets("商品信息").[d1].End(xlDown))
For i = 1 To UBound(arr)
d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4))
————————————————
版权声明：本文为CSDN博主「舞蝶迷香径」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：/weixin_34809240/article/details/112730015