关于字典查询的几个高端(Cai Niao)问题

lichao940

            最近在做个 字典类似 VLOOKUP 的功能，其中几段代码无法提速，求帮助。。。
两个表格是2个不同的文件，字典表，和显示表。
首先加载字典部分没有问题，7万多行运行只要1~2秒，
问题出在匹配的时候


显示表有 9万多行，我要补全的数据是从 B列的尽头开始,
所以我要匹配的数据也是要从O列（关键字列）对应的B列尽头行开始匹配，
匹配后从B列尽头开始填充.
如图：


O列对应关系图：



匹配和填充部分代码如下： 问题在代码后面红字。。
这段代码匹配3万多行数据 时间超过 30秒。。。很慢。。

Sheets("SO cost").Activate
    lr2 = Sheets("SO cost").[O99999].End(3).Row
    lr3 = Sheets("SO cost").[B99999].End(3).Row   这里定义了配的起始单元行。。
    brr = Range(Cells(lr3, "O"), Cells(lr2, "O"))  但是这里使用lr3时，不能匹配到任何值。。。只用使用brr = Range(Cells(2, "O"), Cells(lr2, "O"))
    ReDim crr(1 To UBound(brr), 1 To 1)
    For i = 1 To UBound(brr)
        For Each k In d.keys
        If StrComp(brr(i, 1), k) > 0 Then
            crr(i, 1) = d(k)(0)
            End If
        Next
    Next

[B2].Resize(UBound(crr), 1) = crr    这里的[B2]要怎么样带入变量，因为我要从B列的尽头开始填写，不是B2



全部代码截图：

lsc900707

说再多也没用，关键是上传附件。

小fisher

遍历字典关键字来对比的效率太低了，这样做就失去使用字典的意义了，还不如用数组来得快，应该这样用：

1. 'For Each k In d.Keys
   
2. 'If StrComp(brr(i, 1), k) > 0 Then
   
3. If d.Exists(brr(i, 1)) Then
   
4.     crr(i, 1) = d(brr(i, 1))(0)
   
5. End If
   
6. 'Next

复制代码

lichao940

小fisher 发表于 2019-1-22 09:36
遍历字典关键字来对比的效率太低了，这样做就失去使用字典的意义了，还不如用数组来得快，应该这样用：

哎呦！！小鲜花奉上。。。高手指点一二。。速度翻倍。。。