多列匹配

XXZSP2

附件我想实现按编码将多列跨表匹配值，但是代码会报错，请教大佬指点下是什么原因，感谢

quqiyuan

你这个用公式咯
=VLOOKUP($AA2,产品单价!$G:$M,MATCH(AB$1,产品单价!$G$1:$M$1,),)
下拉右拉。。

saghj

没看懂你的那个。。。

XXZSP2

quqiyuan 发表于 2024-7-3 13:16
你这个用公式咯
=VLOOKUP($AA2,产品单价!$G:$M,MATCH(AB$1,产品单价!$G$1:$M$1,),)
下拉右拉。。

因为实际数据太大，用公式会卡得很

Qs18

Sub qs() '2024/7/3
Dim arr, i, brr, j
arr = Sheet3.Range("aa1").CurrentRegion
brr = Sheet5.Range("g1").CurrentRegion
For i = 2 To UBound(arr)
    For j = 2 To UBound(brr)
        If arr(i, 1) = brr(j, 1) Then
            arr(i, 1) = "'" & arr(i, 1)
            For x = 2 To 7
                arr(i, x) = brr(j, x)
            Next
            Exit For
        End If
    Next
Next
Sheet3.Range("aa1").Resize(UBound(arr), 7) = arr
MsgBox "完成！"
End Sub

Qs18

把字段顺序调整了一下，试试，您这个有重复的没有说怎么弄

grf1973

在原代码上改了一下。

半百

这一句括号位置错了

沈默00

沈默00

参与一下....