[分享+测试]替代Vlookup函数，在超大数据量下进行查找

Long_III · 发表于 2005-11-25 11:26

再罗说一点，昨天优化了同事的一个查询单价代码，原先我全部采用数组，用find查找单价，200多个表（平均50行）里要运行16秒，而后来采用了dictionary之后，只需1.4秒，连我自己都不敢相信。

思路是，先把要查询的数据放到一个数组里，然后用字典记录下查找的值跟它在数组里的位置，以后就直接用数组查找，找到它在数组的位置（跟本贴一楼的思路一致）

源代码： s5sBLT14.txt (2.83 KB, 下载次数: 189)

孤独裘剑 · 发表于 2005-12-16 16:06

下载下来看看，有空学学

zhenxzha · 发表于 2005-12-16 17:01

能否帮改一下,如果标题相同,把G,B,F对应算出个数?急用

webxunet · 发表于 2005-12-21 11:52

正是我想要的，先收了！
慢慢在研究！

zr0203 · 发表于 2005-12-21 13:36

谢谢!

我想请教：如果查找的对象在原数据库中有多个对应的值，如何办？例如某产品所对应的原料部件有多个，如何用？

lj1226189 · 发表于 2005-12-21 14:53

谢谢！

scjoo · 发表于 2005-12-21 15:23

下载保存了。

谢谢！

haoguichun · 发表于 2005-12-22 07:59

龙三老师，如果最后一行不为空时会出错

haoguichun · 发表于 2005-12-22 08:11

传个附件

Bw44PJYe.rar (199.03 KB, 下载次数: 106)

[此贴子已经被作者于2005-12-22 8:16:21编辑过]

Long_III · 发表于 2005-12-22 08:29

以下是引用[I]haoguichun[/I]在2005-12-22 8:11:59的发言：[BR]传个附件

晕，最后一行都有数据啊，这样的话irow2 = .[a65536].End(xlUp).Row，它的值就是1了，很显然就查找不到了太特殊了，程序不考虑哦，呵呵

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

龙三老师能否把附件传上来供大家学习！