从数据集中复制符合条件的所有行

我已经浏览了networking，发现了很多类似的问题，但没有一个解决scheme似乎为我想要的。 数据集在下面，包括大约200个不同的行。 我正在尝试创build一个macrosbutton，单击时会检查它们是否位于部门A中，然后将所有行复制到新工作表中，并将页面更改为该工作表。

目的是为了设置4个button，分别用于不同的纸张上的部门A，B，C，D

谢谢

编辑：

我不想select一切，然后点击一个button。

我想只是一个macros指定的button，将检查，看看他们是否在部门A，如果是这样复制到表2

谢谢

Answer 1

你可以做这样的事情：

Range("A1").Select ActiveCell.CurrentRegion.Select Selection.AutoFilter Field:=1, Criteria1:="a" Range("A1").Select ActiveCell.CurrentRegion.Select Selection.Copy Sheets("Sheet2").Select Range("A1").Select ActiveCell.PasteSpecial 

这取决于你的数据都是1块，所以当你按CTRL + A时，它将全部选中，否则你将不得不手动指定你的范围。