Sub 删除行()
   
    r = 3
    Do While Cells(r, 3).Value <> ""
         
        If Cells(r, 12).Value <= 0 And Cells(r, 3).Value <> "" Then
           Rows(r).Delete
           r = r - 1
        End If
        r = r + 1
    Loop
    MsgBox ("ok")

End Sub

这样试试看

Sub 删除行()
   
    i = ActiveCell.SpecialCells(xlLastCell).Row
    for r=i to 3 setup -1
         
        If Cells(r, 12).Value <= 0 And Cells(r, 3).Value <> "" Then
           Rows(r).Delete
        End If
   next
    MsgBox ("ok")

End Sub

[此贴子已经被作者于2021-4-7 13:55编辑过]

Sub 删除行()
   
    i = ActiveCell.SpecialCells(xlLastCell).Row
    for r=i to 3 setup -1（这一段运行错误）
         
        If Cells(r, 12).Value <= 0 And Cells(r, 3).Value <> "" Then
           Rows(r).Delete
        End If
   Next
    MsgBox ("ok")

End Sub

呵呵，写错了，
for r=i to 3 step -1

代码开始时关闭刷新Application.ScreenUpdating = False，删除完成后再恢复Application.ScreenUpdating = true
还有关闭重算。
然后Cells用数组来代替，再然后删除的行批量用set aa=union(aa,Rows(r))来集合，等循环结束后，再aa.delete即可