xml - 通过彩色填充将数据复制到其他工作表

Question

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

从第一张的上面，我想在第二张的下面 - 因为第 1、3、4 和 7 行包含答案

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

谢谢各位大侠的帮助。！

一个

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