用VBA将符合条件的数据整行复制到新表中，且在原表变化后，能累加到新表，不能删除已有数据

Question

如题所述

Answer 1

例如：
将Sheet1表 ，A列单元格中为Code1的所有行筛选出来，并拷贝到当前工作簿Shee2工作表
复制代码到Sheet2，且在原表变化后，能累加到新表，不删除已有数据
Sub 筛选复制()

Dim I%
For I = 2 To Sheet1.Range("A65536").End(xlUp).Row
If Sheet1.Cells(I, "a") = "Code1" Then
x = Range("A65536").End(xlUp).Row
Sheet1.Rows(I).Copy Cells(x + 1, "a")
End If
Next
End Sub追问

这个我试了一下，不行

Answer 2

可以做的，表格原数据可以发出来吗