【讨论，已总结40楼】超大数据下，Vlookup和Find的优劣

UNARTHUR · 发表于 2005-10-25 12:26

整列赋值的时候，excel在运算的时候也是把那一列当成是一个数组来算的，所以速度可能差不多，代码简单点，其他的我也不太清楚了。

另外写我说的那个代码（9楼）不知兄台有没有兴趣？

Long_III · 发表于 2005-10-25 12:33

9楼的思路大致有点明白，但是要我写一个lookup的代码出来，我想……，这不是兴趣的问题，这是太为难我了！

有空会想想这个问题的！

丸究阵引 · 发表于 2005-10-25 14:28

将sheet2 for each 到 Scripting.Dictionary key=编号 item=key的行号或数值 for each sheet1 编号从 Scripting.Dictionary提取行号或数据这样应该快不少

Long_III · 发表于 2005-10-25 14:34

按9楼的思路，在简单数据里测试通过，代码只需2.57秒

但是，在我自己的复杂数据里（是一个编号，有“-”，有字母，有数字，有汉字等的组合）却始终有部分找不到，我怀疑是不是直接用><=之类的比较，不大可靠，还是赋值到数组里面，它们有变化？请大家指导

4ffuLKzO.rar (339.05 KB, 下载次数: 79)

Long_III · 发表于 2005-10-25 14:35

以下是引用丸究阵引在2005-10-25 14:28:16的发言： 将sheet2 for each 到 Scripting.Dictionary key=编号 item=key的行号或数值 for each sheet1 编号从 Scripting.Dictionary提取行号或数据这样应该快不少

谢谢，我先试试这种思路！

[此贴子已经被作者于2005-10-25 14:36:46编辑过]

UNARTHUR · 发表于 2005-10-25 15:30

恩，14楼好代码，快很多啊！不过代码还可以精简，应该还能更快。

可以做成自定义函数，相信会是最快的查询方法

Long_III · 发表于 2005-10-25 15:36

兄台，但是在我复杂数据里，有些找不到啊（用vlookup就可以找到），试验了好久，还是原因不明

是不是代码还有未知的错误啊？

UNARTHUR · 发表于 2005-10-25 15:38

不知道，我没仔细看你的代码，这种复杂循环的代码看起来太费进

Long_III · 发表于 2005-10-25 15:48

简化问题，下面这两种比较，怎么会有差异呢？我需要得到类似单元格比较的结果 Rl95vXSI.rar (5.55 KB, 下载次数: 26)

Sub hjs() Dim p2 As Boolean [b3] = "=a1>b1" p2 = [a1] > [b1] Debug.Print [b3].Value, p2 End Sub

两个结果正好相反！导致了14楼代码在复杂数据里通不过

丸究阵引 · 发表于 2005-10-25 16:19

Option Compare Text

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