数组Array如何快速存入字典Dictionary ？

bjbxm97 · 发表于 2016-11-9 11:32

请教：数组Array如何快速存入字典Dictionary ？

字典转成数组（分为keys、items两列转置），本人已经会用了。

但是，反过来，数组Array如何快速存入字典Dictionary呢？用什么VBA函数以及语句呢？

有时遇到一张sheet表格，其数据量很大的，并且，还需要将其数据与另外一张sheet表格的项目做比对。因为字典在比较数据方面速度是非常快的，所以，可以将sheet数据作为数组，加入字典进行快速比较。

但是遇到的问题是：数据量很大的sheet数据，一个个加入字典么？这种加入速度太慢了，能否一次性将整张表的数据一次性地导入字典中呢？

还请各位指点请教，并且介绍一下相关的VBA导入函数以及语句。先谢谢了！

huang1314wei · 发表于 2016-11-9 11:35

用循环一个一个加入字典，这个没有捷径可走

microyip · 发表于 2016-11-9 11:35

一次性把表格读入数组，然后在数组内运行添加字典即可

bjbxm97 · 发表于 2016-11-9 11:42

microyip 发表于 2016-11-9 11:35
一次性把表格读入数组，然后在数组内运行添加字典即可

TO microyip, 你好！很感谢你的指点，能否提供一段相关代码的例子方便我来做理解么，先谢谢啊。

microyip · 发表于 2016-11-9 12:15

vArr=Sheet1.UsedRange.Value'数组读表数据
For nRow=2 to Ubound(vArr)'一般第一行是标题，就从第2行开始读
oDic(vArr(nRow,1))=nRow'以第一列为字典关键字为例
Next

复制代码

lvcaolhx · 发表于 2016-11-9 13:21

5楼正解，就是这样解决

auloveagbb · 发表于 2016-11-9 13:24

正解，可以那么操作。

bjbxm97 · 发表于 2016-11-9 13:25

microyip 发表于 2016-11-9 12:15

谢谢！诸位指点!

AmoKat · 发表于 2016-11-10 13:48

microyip 发表于 2016-11-9 12:15

oDic(vArr(nRow,1))=nRow'以第一列为字典关键字为例

应该是最后一列吧

microyip · 发表于 2016-11-10 14:37

AmoKat 发表于 2016-11-10 13:48
oDic(vArr(nRow,1))=nRow'以第一列为字典关键字为例

应该是最后一列吧

你测试过之后就知道是第几列咯

		自动登录	找回密码
密码			免费注册

[求助] 数组Array如何快速存入字典Dictionary ？

评分

评分

评分