excel中删除单元格数据为0的行及它的下一行怎么搞！

Question

Sub deleterows()

Dim i&, k& '定义i，k为长整数

On Error Resume Next '忽略运行过程中出现的错误

Application.ScreenUpdating = False '关闭屏幕更新，以加快宏的执行速度

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表

k = 1

For i = 2 To 80000 '共执行这么多行

k = k + 1 '从第二行开始

If mysheet1.Cells(k, 1) = mysheet1.Cells(1, 6) Then '条件判断

mysheet1.Rows(k).Delete shift:=xlUp '删除行

mysheet1.Rows(Selection.Row + 1).Select.Delete shift:=xlUp '删除指定行下一行 '

k = k - 2 '如果删除一行，则少一行

End If

Next

Application.ScreenUpdating = True '开启屏幕更新

MsgBox "共删除：" & 80000 - k & "行" '弹出提示

End Sub

Answer 1

Sub deleterows()

Dim k&

On Error Resume Next

Application.ScreenUpdating = False

For k = 16 To 2 Step -1

If Cells(k, 1) = 0 Then 'A列为0的

Rows("" & k & ":" & k + 1 & "").Delete Shift:=xlUp '0和下一行，都删除行

End If

Next

Application.ScreenUpdating = True

End Sub