用VBA代码快速一键查询上万条数据

lixiaoxue

由于数据量较大，用公式太卡，举例一小部分数据做参考。
求如何用VBA查询代码，通过查询表给出的条件，自动将表2数据库中的产品信息显示到表一查询表中。

详见附件，万分感谢！

ykcbf1100

是这意思吗？

陆离Lowry

条件是出仓码吗？出仓码是唯一值吗？

笑着...两年过去

1. Sub test()
   
2.     ar = Sheet2.Range("a1").CurrentRegion
   
3.     br = Sheet1.Range("a1").CurrentRegion
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(ar)
   
6.         d(ar(i, 2)) = ar(i, 3) & "|" & ar(i, 4) & "|" & ar(i, 5) & "|" & ar(i, 6)
   
7.     Next
   
8.     For i = 2 To UBound(br)
   
9.         If d.exists(br(i, 2)) Then
   
10.            cr = Split(d(br(i, 2)), "|")
    
11.            For j = 0 To 3
    
12.                br(i, 3 + j) = cr(j)
    
13.            Next
    
14.         End If
    
15.     Next
    
16.     Sheet1.Range("a1").Resize(i - 1, 6) = br
    
17. End Sub

复制代码

于箱长

今天收工，不写了，准备撸串，上酒上酒

ykcbf1100

于箱长 发表于 2022-11-25 13:49
今天收工，不写了，准备撸串，上酒上酒

才不到2点就收工了啊，太早了吧。
你太会享受了。

于箱长

ykcbf1100 发表于 2022-11-25 13:56
才不到2点就收工了啊，太早了吧。
你太会享受了。

太困了，哪有串可撸也没有酒可喝，都是个美好的愿望，我们屯子都快满月了

ykcbf1100

于箱长 发表于 2022-11-25 13:59
太困了，哪有串可撸也没有酒可喝，都是个美好的愿望，我们屯子都快满月了

那你好好休息吧。

pjiang

ykcbf1100 发表于 2022-11-25 13:54
是这意思吗？

简洁，干脆，学习了

10307951261

留个脚印学习