把sheet1满足条件的行贴在“汇总”表最后做积累

wine

大神好

帮忙把sheet1，C列不等于0的行，例如A172：H172，复制在“汇总表”的最后面

每次运行，检查一下C2:C221满足条件的行，做一次汇总增加

谢谢

半百

Sub TEST()
ARR = Sheets("SHEET1").UsedRange
ReDim BRR(1 To UBound(ARR), 1 To 8)
For I = 2 To UBound(ARR)
    If ARR(I, 3) <> 0 Then
        N = N + 1
        For J = 1 To 8
            BRR(N, J) = ARR(I, J)
        Next
    End If
Next
Sheets("汇总").Cells(Rows.Count, 1).End(3).Offset(1).Resize(N, 8) = BRR
End Sub

wine

谢谢出手解救
需求完美解决