关于一个类似vl00up的功能 大数据量时用字典也很慢！！

三坛老窖

提供一个思路，无须用哈希字典，也无须字典嵌套，就用一个VBS字典，也应该比用SQL快，估计也就几秒钟。
1、将几千人经常变动的身份证号装入VBS字典
2、将80万的数据读入数组
3、遍历80万数组，如果字典中存在该身份证号，则将地址信息写入字典的Item
4、输出字典中的Keys和Items

三坛老窖

提供一个思路，无须用哈希字典，也无须字典嵌套，就用一个VBS字典，也应该比用SQL快，估计也就几秒钟。
1、将几千人经常变动的身份证号装入VBS字典
2、将80万的数据读入数组
3、遍历80万数组，如果字典中存在该身份证号，则将地址信息写入字典的Item
4、输出字典中的Keys和Items

yqdaqinqin

lrh788 发表于 2018-4-8 10:56
len1 = 6            '第一级字典的key长度
    '建立字典

1、可以变长，主要是设置嵌套，提高运行效率。2、arr2(i, 2) = "，意思是查找区域的身份证在信息区域建立的字典中找不见时，返回空值。

yqdaqinqin

三坛老窖 发表于 2018-4-8 16:08
提供一个思路，无须用哈希字典，也无须字典嵌套，就用一个VBS字典，也应该比用SQL快，估计也就几秒钟。
1 ...

身份证做为关键字，姓名做为项。还是80万。

yqdaqinqin

lrh788 发表于 2018-4-8 14:35
我把len1=10，运行出错。如何将“身份证+姓名”作为Key，请示范下

比如：s=arr(i,1)&arrarr(i,2)
         k=k+1
         dic(s)=k

Zamyi

奇怪这个问题还那么火！
不可否认下面事实：
1、SQL在大数据面前，完全是花拳绣腿；
2、多个字典、字典加强版也快不了多少，不如：http://club.excelhome.net/thread-1385585-1-1.html
加强版说添加400万个从20分到几分钟，而自定义字典仅需十几秒。
3、仅这么简单的查询，完全用哈希直接秒杀：http://club.excelhome.net/thread-1402265-1-1.html。
本贴和下面有何不同：http://club.excelhome.net/forum. ... p;page=1#pid9445093

lrh788

chis3 发表于 2018-4-8 15:29
你不知道left 和len的用法嗎?

他是叫你把左面頭十分數字建立一個字典啊

可否全部纳入一级字典

lrh788

yqdaqinqin 发表于 2018-4-8 16:37
1、可以变长，主要是设置嵌套，提高运行效率。2、arr2(i, 2) = "，意思是查找区域的身份证在信息区域建立 ...

为啥要写两个呢？

lrh788

yqdaqinqin 发表于 2018-4-8 15:10
附件，来自多表连接查询。

Sql = "SELECT b.地址 FROM [Sheet2$]b right join [Sheet1$]a on a.姓名=b.姓名 & a.身份证=b.身份证 "
      Set rst = cnn.Execute(Sql)
      Sheet1.Range("c2").CopyFromRecordset rst
我这样改动后为啥不行了

lrh788

yqdaqinqin 发表于 2018-4-8 16:53
比如：s=arr(i,1)&arrarr(i,2)
         k=k+1
         dic(s)=k

Sub 字典嵌套()
    len1 = 6            '第一级字典的key长度
    '建立字典
    Lst1 = Cells(Rows.Count, 1).End(xlUp).Row
    arr1 = Cells(1, 1).Resize(Lst1, 3).Value
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 5 To Lst1
        key1 = Left(arr1(i, 1), len1) & arr1(i, 2)
        If dic.exists(key1) = False Then
            Set dic(key1) = CreateObject("Scripting.Dictionary")
        End If
        dic(key1)(arr1(i, 1) & arr1(i, 2)) = arr1(i, 3)
    Next i
    '查找
     Lst2 = Cells(Rows.Count, "e").End(xlUp).Row
    arr2 = Cells(1, "e").Resize(Lst2, 3).Value
    For i = 5 To Lst2
        key1 = Left(arr2(i, 1), len1) & arr2(i, 2)
        If dic.exists(key1) Then    '前6位的字典key存在
            If dic(key1).exists(arr2(i, 1) & arr2(i, 2)) Then
                arr2(i, 3) = dic(key1)(arr2(i, 1) & arr2(i, 2))
            Else
                arr2(i, 3) = "找不到"
            End If
        Else
            arr2(i, 3) = "找不到"
        End If
    Next i
    Cells(1, "e").Resize(Lst2, 3).Value = arr2
    Erase arr1, arr2
End Sub
我已经成功改好了，不知是否完全正确？