将具有特定值的行复制到另一个工作表

我有一个巨大的Excel工作表，其中包含200,000行。 这些数据大概是列在B列的120个科目，如sinani-01到sinani-120 。 例如，我需要复制列B包含sinani-01所有行，并将它们粘贴到新的表单中。 或者至less只是select他们？ 你可以让我知道如何在VBA中做到这一点？

Answer 1

Excel有一个AutoFilter函数，您可以使用它来只select包含特定值的行。 你这样使用它：

 ' 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