会计帮帮网

标题: 数组查询VBA [打印本页]

作者: nnsea 时间: 2023-10-26 22:04
标题: 数组查询VBA

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

欢迎光临会计帮帮网 (http://www.kjbbw.com/)