首页 › 实战技术 › 查询系统VBA

nnsea 发表于 2023-10-26 21:53:00

查询系统VBA

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

查看完整版本: 查询系统VBA