复制与数据集中的条件匹配的所有行

Question

我在网上看了很多，发现了很多类似的问题，但没有一个解决方案似乎适用于我想要的东西。数据集如下，包括大约200个不同的行。我正在尝试创建一个宏按钮，单击该按钮将检查它们是否在部门A中，然后将所有行复制到新工作表，并将页面更改为该工作表。

目的是然后设置4个按钮，对于A，B，C，D各自在不同的工作表上

谢谢

编辑：

我不想选择所有内容，然后点击按钮。

我想只是一个分配了宏的按钮，它会检查它们是否在部门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时它会全部选择，否则您必须手动指定范围。