VBA中的代码循环并且永不结束。如何解决这个问题？

Question

VBA中的代码循环并且永不结束。如何解决这个问题？我运行此代码来删除> -100的行。然而，它保持循环，永不停止。我在这里错过了什么？For i = 2 To 500If Worksheets("Sales").Cells(i, 3).Value > -100 Then    Worksheets("Sales").Cells(i, 3).EntireRow.Delete    i = i - 1End IfNext i

Answer 1

也许你可以联合行并立即删除它们？像这样（未经测试）。

Dim myRow As RangeDim toDelete As RangeFor i = 2 To 500
    If Worksheets("Sales").Cells(i, 3).Value > -100 Then
       Set myRow = Worksheets("Sales").Rows(i)
       If toDelete Is Nothing Then
            Set toDelete = myRow        Else
            Set toDelete = Union(toDelete, myRow)
        End If
    End IfNext iIf Not toDelete Is Nothing Then _
    toDelete.Delete