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

Long_III · 发表于 2005-11-23 10:12

整理了一下原先的代码，做了一个可以链接多列的代码，数组+字典。表2里有多少列，就会对应链接到表1中，里面给了几个数据，大家可以加多数据测试。我在2万需查找和3万查找数据里（复杂数据），测试时间为4.5秒左右，数据结构简单则查询更快。结果与vlookup函数的结果一致。请大家测试，如测试中有问题，请上传附件说明，谢谢！

因为我经常会碰到超大数据的链接问题，故希望大家给这个小代码多多测试，好让我以后放心使用。

7xvLSCQV.rar (12.26 KB, 下载次数: 1405)

【提示】关于Microsoft Windows Script 技术对象之Dictionary对象说解

http://www.officefans.net/cdb/viewthread.php?tid=47628&fpage=1&highlight=dictionary

[此贴子已经被作者于2007-1-19 11:28:15编辑过]

plxmm · 发表于 2005-11-23 10:13

呵呵，先试试了。

XUDAN511 · 发表于 2005-11-23 10:42

龙哥又出力作了,收藏先

gpgpgp · 发表于 2005-11-23 10:48

提示: 作者被禁止或删除内容自动屏蔽

清风_ll · 发表于 2005-11-23 11:06

s = "" s = ds(arr(i, 1))

既然后面一句重新对s赋值,前一句是否有必要?在数据量多的时候,是否会影响效率?

Long_III · 发表于 2005-11-23 11:17

以下是引用清风_ll在2005-11-23 11:06:05的发言：
s = "" s = ds(arr(i, 1))

既然后面一句重新对s赋值,前一句是否有必要?在数据量多的时候,是否会影响效率?

好像没什么差异（我用复杂数据里试验的）。我试着改成了

s = ds(arr(i, 1)) If Len(s) Then

两个代码运行多次，基本一致，都是在那个时间范围里跳动。

gpgpgp · 发表于 2005-11-23 11:33

提示: 作者被禁止或删除内容自动屏蔽

Long_III · 发表于 2005-11-23 12:34

以下是引用gpgpgp在2005-11-23 11:33:39的发言： 问题在4楼，范例中的数据查询该如何实现自我感觉没这个必要。如果你数据很多很多，你可以用这个链接之后，手工复制数据到你的相对应的原始数据里如果代码在这里还增加一个列链接的判断，我怕速度就慢了。

学习有益 · 发表于 2005-11-23 13:37

下载学学,等到用时就方便了.

yxjline · 发表于 2005-11-23 14:13

下载保存，有空好好研究：）另，可否不用循环，而直接用FIND。

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

gpgpgp gpgpgp 当前离线性别保密 UID 13014 阅读权限 0 注册时间 2003-2-24 在线时间小时最后登录 1970-1-1 积分 2408 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2005-11-23 10:48 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

gpgpgp gpgpgp 当前离线性别保密 UID 13014 阅读权限 0 注册时间 2003-2-24 在线时间小时最后登录 1970-1-1 积分 2408 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2005-11-23 11:33 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报