将数据复制到其他工作表并按色度填充

Question

大家好（vba编程真的很新 - 今天开始）假设我想根据逻辑语句将数据从一张表复制到另一张表，并从上到下填充第二张表（即彼此之间没有空行）我将如何开始这样的事情。

从上面的第一张，我想在表2中有以下内容 - 因为第1,3,4和7行包含答案

但这是测试数据 - 真实文件包含大约1000个条目

感谢助手们。！

A

Answer 1

这是答案的框架

Sub test()
    Application.ScreenUpdating = False
    Sheets("Patient Database").Activate
    Selection.AutoFilter

    With ActiveSheet.Range("$A$2:$D$10")
        .AutoFilter Field:=4, Criteria1:=">0"
        .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy
    End With

    Sheets("Sheet2").Activate



    Sheets("Sheet1").Activate
    ActiveSheet.Range("A2").AutoFilter
    Application.ScreenUpdating = True
End Sub