信息查询表

knzx88

信息查询表

约定的童话

Sub 查询()
    Dim i, n, arr, brr
    arr = Sheets("信息表").[b1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 13)
    For i = 4 To UBound(arr)
        If arr(i, 5) = [g1] Then
            n = n + 1
            brr(n, 1) = n
            For j = 2 To 13
                brr(n, j) = arr(i, j)
            Next
        End If
    Next
    [b4:n65536] = ""
    [b4].Resize(UBound(brr), 13) = brr
End Sub
浓缩版

自由自在的费

这是干什么的？？？/