vba - VBA 中的代码循环且永无止境。如何解决这个问题？

Question

我运行此代码来删除具有 > -100 的行。然而它一直循环并且永远不会停止。

我在这里缺少什么？

For i = 2 To 500
If Worksheets("Sales").Cells(i, 3).Value > -100 Then
   Worksheets("Sales").Cells(i, 3).EntireRow.Delete
   i = i - 1
End If
Next i

Answer 1

也许您可以合并这些行并立即删除它们？像这样的东西(未经测试)。

Dim myRow As Range
Dim toDelete As Range

For 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 If
Next i

If Not toDelete Is Nothing Then _
    toDelete.Delete