求助用VBA实现的查询功能

woailijiao

如何用VBA代码实现比 VLOOKUP函数还强大的查询功能，而且条件格式与VLOOKUP相同。
一个按钮，自动完成所有条件查询，可以多列或单列自动输出查询结果。

okjok

FYI
测试了10W行

zjdh

Sub TEST()
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheets("数据表").Range("P1").CurrentRegion
    For i = 2 To UBound(arr)
        dic(arr(i, 2)) = Array(arr(i, 4), arr(i, 5), arr(i, 6), "", arr(i, 3))
    Next
    brr = Sheets("查询表").Range("D1:I" & Sheets("查询表").Range("D65536").End(3).Row)
    For i = 2 To UBound(brr)
        crr = dic(brr(i, 1))
        For J = 0 To UBound(crr)
            brr(i, J + 2) = crr(J)
    Next: Next
    Sheets("查询表").Range("D1").Resize(UBound(brr), 6) = brr
    MsgBox "查询完成！"
End Sub

okjok

zjdh 发表于 2022-12-18 10:50
Sub TEST()
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheets("数据表").Range("P1 ...

老师好，请教个问题。看你的代码比我的简洁太多了，我测试了10W行的数据，为啥你的代码要比我的多出一秒的时间？谢谢！

zjdh

我用你的附件测试过，用时差不多：