Question

excel vba如何删除a列为0的行

Answer 1

Public Sub 删除为0行()
    Dim i As Long, H As Long
    H = Range("a65536").End(xlUp).Row
    For i = H To 1 Step -1
        If Range("A" & i).Value = 0 Then
            Range("A" & i).EntireRow.Delete
        End If
    Next
End Sub

Answer 2

A列为0的行都 删除吗？

Sub 宏1()

lastrow = Cells(Rows.Count, 1).End(3).Row

For i = lastrow To 1 Step -1

    If Cells(i, 1) = 0 Then

        Rows(i).Select

        Selection.Delete Shift:=xlUp

    End If

Next

End Sub

追问

是的，我有一万多行，用循环方式很慢，有没有定位一次删除的方法吗

追答

没有对0值的定位方法。我程序的速度不慢。你可用排序或高级筛选排除零值的行的。