[已解决]求助：vba删除空值所在的整行

jinyueli85

我想根据F列判断，有数字保留整行，没有数字删除整行，运行代码后无法实现效果，请大神指教
   Sub hong()
    Dim l As Integer
    For l = 2 To 64
      If Range("f" & l).Value < 1 Then
      Rows(l).Delete
      End If
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2016-6-27 14:05

Sub hong()
    Dim l As Integer
    For l = Range("b65536").End(3).Row To 2 Step -1
        If Range("F" & l)= "" Then  Rows(l).Delete
   Next
End Sub

跳转到最佳答案楼层

zjdh

Sub hong()
    Dim l As Integer
    For l = Range("b65536").End(3).Row To 2 Step -1
        If Range("F" & l)= "" Then  Rows(l).Delete
   Next
End Sub

jinyueli85

zjdh 发表于 2016-6-27 14:05
Sub hong()
    Dim l As Integer
    For l = Range("b65536").End(3).Row To 2 Step -1

请教大神我的代码问题出在哪里呢，期待回复~

zjdh

你没看出来？？
应该从最后一行开始删，道理你自己琢磨吧。

jinyueli85

zjdh 发表于 2016-6-27 14:21
你没看出来？？
应该从最后一行开始删，道理你自己琢磨吧。

懂了，删前面的后面行号会变化的，谢谢大神~