VBA删除单元格所在的行出错

黑桃K905

我在单元格D2至D51有数据，需要检查D中的每个数据是否小于0，然后把小于0的所在行删除，运行结果不符合我的预期，如图。红框所示的这些行不应该存在！所以求助大家！
部分代码如下：
Dim i As Integer
For i = 1 To 51
    If Range("D" & i + 1).Value < 0 Then Range("D" & i + 1).EntireRow.Delete Shift:=xlUp
Next i

liulang0808

For i =  51 TO 1 STEP -1
    If Range("D" & i + 1).Value < 0 Then Range("D" & i + 1).EntireRow.Delete Shift:=xlUp
Next i

黑桃K905

非常感谢！为什么从下往上删，结果就是对的？是因为倒过来删，前面的行都不变？

杨建营

如果你先删除上面的行，下面的值就改变的不一定是需要删除的行了。只有从下面往上，变化的行值不会影响后续的操作。

liulang0808

黑桃K905 发表于 2022-11-27 23:12
非常感谢！为什么从下往上删，结果就是对的？是因为倒过来删，前面的行都不变？

楼主可以分步执行，然后对比从上到下删除的时候，数据变化
另外可以使用union将要删除的行组合一起，然后一次性删除，效率更高

ykcbf1100

也可以用数组法，把大于等于0的数据提取出来。