VBA字典匹配查询数据问题请教

andrewccyang

*** 我要实现从A表，根据“订单号”和“工单号”匹配查询A表中每日（12/1~12/31）的数据到B表对应的日期栏位。

如：A01订单下的G01工单在A表里12-1日有一个数据20，12-2日有一个数据80。我需要自动检索，使这个20和80，分别带到B表A01，G01工单对应的12-1日和12-2日单元格内。

** 因为A表和B表存在新旧数据差异，很可能B表会新增或删除一些订单，所以，需要从A表将没删除的订单数据再匹配回B表。

感谢各位高手！

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     With Sheets("A")
   
4.         arr = .[a1].CurrentRegion
   
5.         For i = 2 To UBound(arr)
   
6.             For j = 8 To UBound(arr, 2)
   
7.                 s = arr(i, 2) & arr(i, 3) & arr(1, j)
   
8.                 d(s) = arr(i, j)
   
9.             Next
   
10.         Next
    
11.     End With
    
12.     With Sheets("B")
    
13.         arr = .[a1].CurrentRegion
    
14.         .[a1].CurrentRegion.Offset(1, 8).ClearContents
    
15.         For i = 2 To UBound(arr)
    
16.             For j = 8 To UBound(arr, 2)
    
17.                 s = arr(i, 2) & arr(i, 3) & arr(1, j)
    
18.                  arr(i, j) = d(s)
    
19.             Next
    
20.         Next
    
21.         .[a1].CurrentRegion = arr
    
22.     End With
    
23. End Sub

复制代码

lsc900707

代码在审核，附件供测试：

kuangben8

=LOOKUP(1,0/(A!$B$2:$B$8&A!$C$2:$C$8=$B2&$C2),A!H$2:H$8)

测试.zip (12.9 KB, 下载次数: 18)

2020-12-18 13:44 上传

点击文件名下载附件

魚。。

Sub Fish()
    Dim Dic As Object
    Dim aa, bb
    Dim i&, j&
    Set Dic = CreateObject("Scripting.Dictionary")
    aa = Sheets("A").[a1].CurrentRegion
        For i = 2 To UBound(aa)
            Dic(aa(i, 2) & aa(i, 3)) = i
        Next
        For i = 8 To UBound(aa, 2)
            Dic(aa(1, i)) = i
        Next
    bb = Sheets("B").[a1].CurrentRegion
        For i = 2 To UBound(bb)
            For j = 8 To UBound(bb, 2)
                bb(i, j) = aa(Dic(bb(i, 2) & bb(i, 3)), Dic(bb(1, j)))
            Next
        Next
    Sheets("B").[a1].Resize(UBound(bb), UBound(bb, 2)) = bb
    Set Dic = Nothing
End Sub

andrewccyang

lsc900707 发表于 2020-12-18 13:29

非常感谢！

andrewccyang

lsc900707 发表于 2020-12-18 13:31
代码在审核，附件供测试：

非常感谢！

andrewccyang

魚。。 发表于 2020-12-18 13:45
Sub Fish()
    Dim Dic As Object
    Dim aa, bb

非常感谢！

hnjz6700

好好学习天天向上