VBA按条件查询

woailijiao

求助老师，如何用VBA将每个 分表格的数据按条件“完成”查询

media888

试试 VBA按条件查询.rar (40.87 KB, 下载次数: 13)

2022-12-10 09:53 上传

点击文件名下载附件

蓝桥玄霜

依次判断P列是否=“完成”，然后用复制粘贴也行，赋给新的数组也可，最后赋给单元格即可。
或者手动排序也行。

chzsh

Sub sh()
Dim irow, d, arr, brr

irow = Range("o65536").End(xlUp).Row
irow2 = Range("af65536").End(xlUp).Row
If irow2 > 1 Then Range("s2:af" & irow2).Clear
Range("s2:af" & irow2).Borders.LineStyle = xlLineStyleNone


d = Range("p3")
arr = Range("c1:P" & irow)
ReDim brr(1 To irow, 1 To 14)
For i = 1 To irow
    If Range("p" & i) = d Then
        k = k + 1
        For j = 1 To 14
            brr(k, j) = arr(i, j)
        Next
   
    End If

Next

Range("s2").Resize(k, 14) = brr
Range("s2").Resize(k, 14).Borders.LineStyle = xlContinuous

End Sub

chzsh

用数组法查询

gwjkkkkk

请楼主参考 。。。

media888

media888 发表于 2022-12-10 09:53
试试

送花真会扣你钱吗？做人大方点。

aails6543

看起来很经典的例子。学习一下。