Sub 删除0值行()
Dim rg As Range, i As Integer
For i = 1 To Range("c65536").End(xlUp).Row
If Cells(i, 3) = 0 Then
If rg Is Nothing Then
Set rg = Rows(i)
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next i
rg.Delete
End Sub
Sub 删除0值行()
Dim rg As Range, i As Integer
For i = 1 To Range("c65536").End(xlUp).Row
If Cells(i, 3) = 0 Then
If rg Is Nothing Then
Set rg = Rows(i)
Else
Set rg = Union(rg, Rows(i))
End If
End If
Next i
rg.Delete
End Sub