如何通过VBA自动查找填充对应参数

小葫芦

请路过大神帮帮忙

杨建营

请楼主参考。

ykcbf1100

附件请参考。。。

shiruiqiang

蓝桥玄霜

包装的例子：

LIUZHU

这问题用公式不就可以了，需要用到VBA吗？

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, cr, i&, j&, k&
   
    ar = [A1].CurrentRegion
    br = Sheets(1).[A1].CurrentRegion
    cr = Array(2, 5, 7, 8)
    For i = 2 To UBound(ar)
        For j = 2 To UBound(br)
            If br(j, 1) = ar(i, 1) Then
                 For k = 0 To UBound(cr)
                     ar(i, k + 2) = br(j, cr(k))
                 Next k
                 Exit For
            End If
        Next j
    Next i
   
    With [A1].CurrentRegion
        .Columns(3).NumberFormatLocal = "@"
        .Value = ar
    End With
    Beep
End Sub

gwjkkkkk

请参考。。。

lushang2018

小葫芦

LIUZHU 发表于 2023-3-14 09:32
这问题用公式不就可以了，需要用到VBA吗？

就是因为用公式经常不小心被清除