Xml 以彩色方式将数据复制到其他表格

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

从第一页的上面，我想在第二页看到以下内容——因为第1、3、4和7行包含答案

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

谢谢你们的帮助

---

这是答案的框架

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

---

如果您确实需要VBA，请参阅

自动筛选

方法和

特殊单元格（xlCellTypeVisible）

property@ScottHoltzman-还有别的办法吗？请启发我。。。。我真的很高兴…看起来你自己找到了答案。。。或者正在得到它的路上，至少：）不，它确实有效