VBA多重查找名称一致不同列的数据，相对应的行数据

雪之花

如图片所示，查找列名称一致，但是列位置不固定的行内容。

谢谢老师抽空帮忙

gwjkkkkk

Option Explicit
Sub TEST7()
    Dim ar, br, i&, j&, k&, p&, dic As Object, t#
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    t = Timer
   
    With [A1].CurrentRegion
        .Offset(1, 2).Clear
        ar = .Value
        For i = 1 To UBound(ar, 2): dic(ar(1, i)) = i: Next
    End With
    br = Sheets(2).[A1].CurrentRegion
    For i = 2 To UBound(ar)
         For j = 2 To UBound(br)
             If br(j, 1) = ar(i, 1) Then
                 For k = 2 To UBound(br, 2)
                     If dic.exists(br(1, k)) Then
                          p = dic(br(1, k))
                          ar(i, p) = br(j, k)
                     End If
                 Next k
                 Exit For
             End If
         Next j
    Next i
   
    [A1].Resize(UBound(ar), UBound(ar, 2)) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒", 64
End Sub

gwjkkkkk

请参考。。。

gwjkkkkk

请参考。。。

雪之花

gwjkkkkk 发表于 2023-4-7 22:55
请参考。。。

老师，数据表的每列顺序会随机变，你的代码是固定货号代码在A列的，若在其他列中间或后面就无法运行了

gwjkkkkk

请参考。。。

雪之花

gwjkkkkk 发表于 2023-4-8 20:46
请参考。。。

老师，若增加A列序号自动生成如何修改，谢谢帮忙

ykcbf1100

雪之花 发表于 2023-4-11 11:08
老师，若增加A列序号自动生成如何修改，谢谢帮忙

这样就可以了。

雪之花

ykcbf1100 发表于 2023-4-11 14:26
这样就可以了。

老师，数据表的首行名称对应的列位置不是固定的，随机会变，需要在6楼老师的代码功能实现
感谢帮忙

ykcbf1100

雪之花 发表于 2023-4-11 14:57
老师，数据表的首行名称对应的列位置不是固定的，随机会变，需要在6楼老师的代码功能实现
感谢帮忙

我没固定啊，arr(1,j)就是标题字段啊。
你哪里看出我是固定的。