小编Aaa*_*Aaa的帖子

我正在电子表格上运行以下代码：

Do While i <= 100000
    If Not Cells(i, 4) = "String" Then
        Cells(i, 4).EntireRow.Delete
    End If
    i = i + 1
Loop

有很多条目不是“ String”，但它们不会被删除。

当我将这段代码复制到单独的工作表时，我什至收到错误“Excel 无法使用可用资源完成此任务。选择较少的数据或关闭其他应用程序。”

我做错了什么导致这个循环不起作用？

注意：我无法使用自动筛选，因为我需要根据不满足条件删除行。