请大神帮一下，我用函数作搜索，函数太多。请大神帮一下用VBA

jadeqin

功能是我在一个表格里面输入一个产品型号名字，在下面空的表格自己动跳出跟这个产品型号有关系的数据。

凌空一羽

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target
    If .Address(0, 0) = "B4" Then
        Range("a7:i1000").ClearContents
        Set d = CreateObject("Scripting.Dictionary")
        ReDim br(1 To 500, 1 To 7)
        ar = Sheet2.Range("a1").CurrentRegion
        zr = Sheet3.Range("a1").CurrentRegion
        For i = 3 To UBound(zr)
            d(zr(i, 2)) = zr(i, 8)
        Next
        For i = 3 To UBound(ar)
            If ar(i, 1) = .Value Then
                n = n + 1
                br(n, 1) = ar(i, 1)
                br(n, 2) = ar(i, 2)
                br(n, 4) = ar(i, 5)
                br(n, 6) = ar(i, 4)
                If d.exists(ar(i, 1)) Then br(n, 7) = d(ar(i, 1))
            End If
        Next i
        Range("a7").Resize(n, 7) = br
    End If
End With
Set d = Nothing
End Sub

jadeqin

刚才试了一下，输入型号后下面一行只出来一个，而不是全部