数组查询VBA

nnsea

Sub 查询()
Sheets("Sheet2").Select
[A3:G1999].Clear
Sheets("Sheet1").Select
arr = Range("a2", Cells(Rows.Count, "g").End(xlUp))
For i = 1 To UBound(arr)
    If arr(i, 1) Like Sheets("Sheet2").Range("B1") Then
        n = n + 1
        Sheets("Sheet2").Select
        Cells(n + 2, "A").Resize(1, 7) = WorksheetFunction.Index(arr, i, 0)
    End If
Next
End Sub