VBA宏快速删除行

我有几个非常大的 Excel 数据文件，我需要遍历它们并删除 T 列中单元格值为 1 的所有行。现在我的代码如下所示：

Sub test()
    Dim cell As Range

    For Each cell In Worksheets("Sheet1").Range("T5", "T900000")
        If cell.Value = 1 Then
            cell.EntireRow.Delete
        End If
    Next cell
End Sub

它似乎有效，但需要永远运行，我将不得不这样做很多次。有没有更好的方法来做到这一点，或者有什么方法可以优化我已经拥有的东西以使其运行得更快？

这并不像您想象的那样工作...当您在迭代行时删除行时，您最终会跳过行。示例：假设您的行 A 列中有数字 1...10。您查看第一行并决定删除它。现在你看第二行。它的数字是3！你从来没看过第二行！！

更好的方法是根据 T 列的标准过滤电子表格，复制它，将其粘贴到新工作表（带有格式等）。

您可以打开宏录制并手动执行此操作；然后您将获得准确的 VBA 代码。我确信那会快得多。

即使你不这样做，如果你想做for each在删除内容的地方，颠倒顺序（从末尾开始向后操作）