[已解决]奇怪了，为什么到最后总会留下一行没删除

热心答疑者

Sub 删除已过期()

Dim rng As Range

For Each rng In Range("B1:B" & Range("a65536").End(3).Row)
If rng.Value = "已过期" Then


rng.Select
Rows(Selection.Row).Resize(Selection.Rows.Count).Delete

End If

Next
End Sub


是哪里出错了吗？

最佳答案

月排行榜 / 总排行榜

风林火山

2021-9-22 08:53

Sub RowDel()
      Dim k As Integer
      For k = Cells(Rows.Count, 2).End(3).Row To 1 Step -1
            If Cells(k, 2).Value = "已过期" Then Cells(k, 2).EntireRow.Delete
      Next k
End Sub

这个就是lisongmei老师的思路

跳转到最佳答案楼层

lisongmei

删除行请从后往前

热心答疑者

lisongmei 发表于 2021-9-20 00:40
删除行请从后往前

具体怎么操作？感觉我要换个思路了

lisongmei

热心答疑者 发表于 2021-9-20 12:39
具体怎么操作？感觉我要换个思路了

具体就是从后往前啊：这里不要用for each in .用for i = n to 1 step -1的方式来循环，就可以了。。

风林火山

Sub RowDel()
      Dim k As Integer
      For k = Cells(Rows.Count, 2).End(3).Row To 1 Step -1
            If Cells(k, 2).Value = "已过期" Then Cells(k, 2).EntireRow.Delete
      Next k
End Sub

这个就是lisongmei老师的思路

热心答疑者

感谢lisongmei和风林火山老师