老哥帮帮忙，写个简单的代码

是某个单元格为0，则删除整行。

老哥，不行啊！点一次不能全部删除为0点行，有点几次，能不能再改改

有以下几种方法改一下
一 根据3楼老哥的 程序
Sub 删除0整行()
Dim mycell As Range
Dim k As Boolean
k = True
Do While k = True
k = False
For Each mycell In ActiveSheet.UsedRange
If mycell.Text = 0 Then
Rows(mycell.Row).Delete
k = True
End If
Next mycell
Loop
End Sub
加一个开关 让他循环，如果有删除过行，就让他从新再来一遍，直到没有删除行
二，还是根据3楼程序改
Sub 删除0整行()
Dim mycell As Range
100:
For Each mycell In ActiveSheet.UsedRange
If mycell.Text = 0 Then
Rows(mycell.Row).Delete
GoTo 100
End If
Next mycell
End Sub
每次删除 就让他回去 从新找。。。
第三种，懒得写了 就是 求出 activesheet.usedrange的范围
然后倒叙循环。