vba ado效率低吗_VBA数组与字典，数据单条件匹配之方法

最新推荐文章于 2021-02-11 14:07:59 发布

weixin_39527487

最新推荐文章于 2021-02-11 14:07:59 发布

阅读量482

点赞数 2

文章标签： vba ado效率低吗

本文链接：https://blog.csdn.net/weixin_39527487/article/details/111335279

版权

浮躁的心静下来，静定“空”心，去感悟真实的时间，静下心，常存感恩之心，做善事，一生无愧。怀平常心，做平常事，日夜安宁。人之欲望不止，一山还比一山高，岂能如愿？看淡纷争，看轻得失，心安即是归处。一杯茶，满也好，少也好，不要计较其间；浓也好，淡也好，其中自有值得品的味道。逆境时多学习，积累的就是福报，多学习，积累的就是财富。保持快乐的心态，坚定且执着。去学习有用的知识，经营自己，而不是天天混日子，也不是天天熬日子。不管现实有多残忍，我们都要固执地相信，只要顽强的前行，一切阴霾都会吹散在风中。静下心，为后疫情时代做知识的储备。后疫情时代将会是一个全新的世界。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。为后疫情时代做的必要准备。

什么是存量残杀？简单而言，在取代OFFICE新的办公软件没有到来之前，谁能把应用做到最为先进，谁就是王者。其中登峰至极的技能非VBA莫属！

今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。最近代码多是出自”VBA数组与字典解决方案”教程，有一些朋友反映分享的内容不能很好的理解，可以参考这套资料的内容进行研读。今日分享的是第272期。

VBA过程代码272：利用字典，进行单条件匹配查询

Sub MyNZ ()

Dim mydic, myarr

Sheets("42").Select

Set mydic = CreateObject("scripting.dictionary")

'将数据放入数组

myarr = Sheets("42").[a1].CurrentRegion

For i = 2 To UBound(myarr)

'这里字典的值，用的是array数组，方便我们匹配多个数据

mydic(myarr(i, 1)) = Array(myarr(i, 2), myarr(i, 3), myarr(i, 4))

'根据查询的基准，在相应的位置回填键值

For i = 2 To Sheets("42").Cells(1, "g").End(xlDown).row

Sheets("42").Cells(i, "h").Resize(1, 3) = mydic(Cells(i, "g").Value)

'释放内存

Set mydic = Nothing

End Sub

代码讲解：上面的代码实现了单条件查询的具体应用。可以很快的按照要求在源数据中查找到相应的值。mydic(myarr(i, 1)) = Array(myarr(i, 2), myarr(i, 3), myarr(i, 4))代码仍采用了键值是数组的形式，键是A列的数据，键值是后面三列数据的数组。 Sheets("42").Cells(i, "h").Resize(1, 3) = mydic(Cells(i, "g").Value)在字典中直达相应的键，把键值放到相应的位置。