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

UNARTHUR · 发表于 2005-10-26 09:59

如果长兄数据中需要查询的数据也是按升序排列的话，我26楼代码大概还能让他快一倍，呵呵！

Long_III · 发表于 2005-10-26 10:09

需要查询的数据是一个大表上的，链接数据之后要把结果直接粘贴过去了，所以最好不排序

如果给需要查询的数据加一个序列，可以排序链接数据之后，再排回来，不过就现在的速度3秒，我已经很满足了。其实这个方法与Vlookup函数还是有区别的，我目前知道的有两点：1、在有重复数据的时候，vlookup找到的是第一个，而我们的代码，可能有时是第一个，有时是后面的（按我的代码是不确定）；2、对于输入法下的()和无输入法下的()，vlookup对它们有区别，我们的代码模块前面加了一句option compare text，会忽略这种差异，也能找到对应值（不过这点对我来说正好，因为我查找就需要它们能找到，还省去了转换的过程，呵呵）

关于dictionary方法，不知UNARTHUR兄有何见解？

UNARTHUR · 发表于 2005-10-26 10:15

那就需要辅助列喽，不过肯定能快不少就是了

dictionary从来没用过。

Long_III · 发表于 2005-10-26 10:44

好的，待会试试dictionary跟我的代码组合起来看看速度

丸究阵引 · 发表于 2005-10-26 10:51

速度与稳定性之间必然要有所取舍。 Scripting.Dictionary经无数人使用应该是可靠的，如果速度相差不大还是用比较成熟的东西好。自己做的东东有时很难避免百密而有一疏，使用时的复杂性是我们很难都一一想到的。 Scripting.Dictionary是一个很重要的东东，不完全熟悉他是不可想象的!

Sub CommandButton2_Click() 'Dictionary方法 Dim Sd As Scripting.Dictionary Dim p&, q&, i& Dim arr As Variant Dim Xarr() Dim temp aa = Timer Application.ScreenUpdating = False Set Sd = New Scripting.Dictionary

q = Sheet2.[a65536].End(xlUp).Row arr = Sheet2.Range("a1:b" & q) On Error Resume Next '防止原始数据里有重复的情况 For i = 1 To q Sd.Add CStr(arr(i, 1)), arr(i, 2) Next Err.Clear On Error GoTo 0

p = [a65536].End(xlUp).Row arr1 = Range("a1:a" & p) ReDim Xarr(1 To p, 0) For i = 2 To 22686 ' If arr1(i, 1) <> "" Then temp = "" temp = Sd(CStr(arr1(i, 1))) If temp <> "" Then Xarr(i, 0) = temp Else Xarr(i, 0) = "n" End If Else Xarr(i, 0) = "K" End If Next Set Sd = Nothing [c1].Resize(p, 1) = Xarr Application.ScreenUpdating = True MsgBox Format(Timer - aa, "0.000") End Sub

lipton · 发表于 2005-10-26 11:01

好贴，希望能常常看到这样的讨论。

Long_III · 发表于 2005-10-26 11:14

简单的修改了一点点 temp = "" temp = Sd(CStr(arr1(i, 1)))

速度就变得很惊人了，在我复杂数据里测试为2.4～2.5秒左右，真是神奇，丸究阵引大师能讲解一下为什么吗？

通过与vlookup链接值的比较，它们都会区分输入法下的（）和非输入法下的()【与先前写的lookup不同】，对于vlookup，不会区分“G陕西0502c0008A”和“G陕西0502C0008A”的大小写区别，而dictionary会区分开来，我想请问，它们之间的比较数据的依据是什么？是不是dictionary要求完全一致，才可以找到？

丸究阵引 · 发表于 2005-10-26 11:48

你的代码等于在SD内查找了两次，加上Sd.Exists(CStr(arr1(i, 1)))共3次去掉了CSTR , 加上了比较模式

Sub CommandButton2_Click() 'Dictionary方法 Dim Sd As Scripting.Dictionary Dim p&, q&, i& Dim arr As Variant Dim Xarr() Dim temp aa = Timer Application.ScreenUpdating = False Set Sd = New Scripting.Dictionary Sd.CompareMode = TextCompare '比较模式 q = Sheet2.[a65536].End(xlUp).Row arr = Sheet2.Range("a1:b" & q) On Error Resume Next '防止原始数据里有重复的情况 For i = 1 To q Sd.Add arr(i, 1), arr(i, 2) Next Err.Clear On Error GoTo 0

p = [a65536].End(xlUp).Row arr1 = Range("a1:a" & p) ReDim Xarr(1 To p, 0) For i = 2 To 22686 ' If arr1(i, 1) <> "" Then temp = "" temp = Sd(arr1(i, 1)) If temp <> "" Then Xarr(i, 0) = temp Else Xarr(i, 0) = "n" End If Else Xarr(i, 0) = "K" End If Next Set Sd = Nothing [c1].Resize(p, 1) = Xarr Application.ScreenUpdating = True MsgBox Format(Timer - aa, "0.000") End Sub

Long_III · 发表于 2005-10-26 11:59

谢谢丸究阵引的解释！在简单数据里测试，耗时0.9秒不到，在复杂数据里耗时2.5秒！

Long_III · 发表于 2005-10-26 13:00

临时总结：超大数据一对一链接时（本质是实现vlookup功能），dictionary最快，其次是lookup思路的代码，接着是调用vlookup函数，最后才是find方法

附件举了前两个代码，在复杂数据里都测试通过 uFJ5SR4e.rar (351.03 KB, 下载次数: 209)

关于后两种方法在1楼已有代码

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

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

评分