求助，求助，利用字典进行数据匹配填充

2796769

求助，利用字典进行数据匹配填充，请大神不吝赐教。

ione_fox

编码sheet 1        2        3        4        5        6        7        60t        重量        70t
如何对应关系  模拟一条记录出来

2796769

ione_fox 发表于 2019-1-19 10:15
编码sheet 1        2        3        4        5        6        7        60t        重量        70t
如何对应关系  模拟一条记录出来

产品编码表，第一列是编码，第二列，是品名，第三列，是品种，第四列是规格，第五列是长度，第六列是只数，第七列是重量

2796769

ione_fox 发表于 2019-1-19 10:15
编码sheet 1        2        3        4        5        6        7        60t        重量        70t
如何对应关系  模拟一条记录出来

已重新上传附件了

ione_fox

Sub test()
    Dim Dtemp, Dic, I&, J&
    Set Dtemp = CreateObject("Scripting.Dictionary")
    Set Dic = CreateObject("Scripting.Dictionary")
    Dim Ar
    Ar = Sheets("产品编码").UsedRange
    For I = 1 To UBound(Ar, 2) '重量字段重复
        Dtemp(Ar(1, I)) = I
    Next I
   
    For I = 2 To UBound(Ar)
        Dtemp(Ar(I, 1)) = I
    Next I
   
    Dim Br
    Br = Sheets("入库单").UsedRange
    For I = 3 To UBound(Br)
        For J = 2 To UBound(Br, 2)
            If Dtemp(Br(I, 1)) <> "" And Dtemp(Br(2, J)) <> "" Then
                Br(I, J) = Ar(Dtemp(Br(I, 1)), Dtemp(Br(2, J)))
            End If
        Next J
      
    Next I
   Sheets("入库单").UsedRange = Br
End Sub