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