求助，实现自动填表功能

pepsi0002

求助各位大神，要求函数实现，VBA需要插件，不好弄。
功能上，会将配方表维护好，需要在“领料打印”表中，通过填写产品名，自动在配方表中查找相应产品对应的原材料，并返回对应数值。

HSIAOQIANG

不就是FILTER的事嗎?

pepsi0002

HSIAOQIANG 发表于 2022-12-5 12:32
不就是FILTER的事嗎?

大神可以帮忙把文件发出来学习一下吗，我后来使用辅助列，先把对应产品列数据提取，在处理的，感觉有点麻烦呢，想学习一下。

HSIAOQIANG

pepsi0002 发表于 2022-12-5 13:30
大神可以帮忙把文件发出来学习一下吗，我后来使用辅助列，先把对应产品列数据提取，在处理的，感觉有点麻 ...

你照著上面的公式寫啊,原樣未動

chzsh

Sub chaxun()
    Dim k, arr, brr, i
    k = Sheet1.Range("a65536").End(xlUp).Row
    arr = Sheet1.Range("a6:g" & k)
    ReDim brr(1 To k - 5, 1 To 5)
    Sheet2.Range("b6").Resize(10, 5) = ""
    For i = 1 To k - 5
        If Sheet2.Range("c3") = Sheet1.Range("d3") Then
            If arr(i, 4) > 0 Then
                m = m + 1
                        brr(m, 1) = arr(i, 1)
                        brr(m, 3) = arr(i, 2)
                        brr(m, 4) = arr(i, 3)
                        brr(m, 5) = arr(i, 4)
            End If
        End If
        If Sheet2.Range("c3") = Sheet1.Range("e3") Then
            If arr(i, 5) > 0 Then
                m = m + 1
                        brr(m, 1) = arr(i, 1)
                        brr(m, 3) = arr(i, 2)
                        brr(m, 4) = arr(i, 3)
                        brr(m, 5) = arr(i, 5)
            End If
        End If
        
         If Sheet2.Range("c3") = Sheet1.Range("F3") Then
            If arr(i, 6) > 0 Then
                m = m + 1
                        brr(m, 1) = arr(i, 1)
                        brr(m, 3) = arr(i, 2)
                        brr(m, 4) = arr(i, 3)
                        brr(m, 5) = arr(i, 6)
            End If
        End If
        
        If Sheet2.Range("c3") = Sheet1.Range("G3") Then
            If arr(i, 7) > 0 Then
                m = m + 1
                        brr(m, 1) = arr(i, 1)
                        brr(m, 3) = arr(i, 2)
                        brr(m, 4) = arr(i, 3)
                        brr(m, 5) = arr(i, 7)
            End If
        End If
        
        
    Next
On Error Resume Next
Sheet2.Range("b6").Resize(m, 5) = brr

End Sub

chzsh

请参考附件