Question

我想把excel工作表中a列字付为"仓库‘’b列和c数值为0的所有行删除用vba怎么编写

Answer 1

Sub mydel()
    敏旁洞Dim rng As Range
    For Each rng In Range("A:C")
        If Range("A" & rng.Row()) = "仓库启羡"桥枯 And Range("B" & rng.Row()) = 0 And Range("C" & rng.Row()) = 0 Then
            Rows(rng.Row()).Delete SHIFT:=xlUp
        End If
    Next rng
End Sub

追问

同时有两行以上符合条件，怎么只能隔行删

追答

Sub mydel()
    Dim rng As Range
    For Each rng In Range("A:C")
        If Range("A" & rng.Row()) = "仓库" And Range("B" & rng.Row()) = 0 And Range("C" & rng.Row()) = 0 Then
            Rows(rng.Row()).Clear
        End If
    Next rng
End Sub