删除数量为0的行带来的问题

sywan3596

数据表中，数量列有很多0，我想用VBA代码删掉。写了如下语句：
Sub blankRowDeleted()
  Dim rowNum As Integer
  rowNum = [h65536].End(xlUp).Row
  For counter = 1 To rowNum
   With Range("H" & counter)
    If .Value = 0 Then
       .EntireRow.Delete
    End If
   End With
  Next
End Sub
运行后，惊奇的发现还有许多为0的行没有删掉。多运行几次才能全部删除，请问，这是什么原因？

livewire

从下往上删   For counter = rowNum to 1  step   -1

wpxxsyzx

如果要删除的量大的话，逐行删除会慢，下面的代码一次删除
Sub blankRowDeleted()
Dim rng As Range
  Dim rowNum As Integer
  rowNum = [h65536].End(xlUp).Row
  For counter = 1 To rowNum
   With Range("H" & counter)
    If .Value = 0 Then
    If rng Is Nothing Then
        Set rng = .EntireRow
    Else
        Set rng = Application.Union(rng, .EntireRow)
    End If
    End If
   End With
  Next
  rng.Delete
End Sub

52UEXCEL

Sub blankRowDeleted()
  Dim rowNum As Integer
  rowNum = [h65536].End(xlUp).Row
  For counter = rowNum to 1  step   -1
  With Range("H" & counter)
    If .Value = 0 Then
       .EntireRow.Delete
    End If
   End With
  Next
End Sub
------------------------------
我用了，好用！