数组查询VBA
Sub 查询()
Sheets("Sheet2").Select
.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
页:
[1]