查询系统VBA

nnsea

Sub 查询系统()
[i3:o999].Clear
arr = Range("a2", Cells(Rows.Count, "g").End(xlUp))
For i = 1 To UBound(arr)
    If arr(i, 1) Like [j1] Then
        n = n + 1
        Cells(n + 2, "i").Resize(1, 7) = WorksheetFunction.Index(arr, i, 0)
    End If
Next
End Sub