Vba 将具有特定值的行复制到其他图纸

我有一个巨大的Excel工作表，其中包含200000行。数据约为B列中列出的120名受试者，如

sinani-01

至

sinani-120

。例如，我需要复制列B包含

sinani-01

的所有行，并将它们粘贴到新的工作表中。或者至少选择它们？

---

您能告诉我如何在VBA中执行此操作吗？

Excel有一个

自动筛选功能，您可以使用该功能仅选择包含特定值的行。您可以这样使用它：

' Filter column B by a specific value...
Range("B:B").AutoFilter 1, "sinani-01"

' Copy all visible rows to a new sheet...
Range("B:B").SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("sinani-01").Range("A1")

' Turn the AutoFilter back off...
Range("B1").AutoFilter

感谢Bond，但我收到一个错误
无效的外部过程
错误您需要将这些行添加到宏或子例程中。您已经启动了一个吗？很抱歉，我现在已经启动了，过滤部分工作正常，但副本不工作，我在
范围（“B:B”）.行.特殊单元格（xlCellTypeVisible）.复制Sheet2.范围（“A1”）
是否有
Sheet2
？或者你在那里使用的是不同的纸张对象？哦，我明白了！如果不存在，有没有办法自动创建它？即使使用我们在
范围（“B:B”）中使用的过滤器名称，如
“sinani-05”
。自动过滤器1，“sinani-05”