为了验证代码是否获得除了sheet1表以外的其它表：

Sub wfdele()

Dim sh As Worksheet

Dim c As Long

Dim r As Long

Dim LastRow As Integer

Dim Lastcolumn As Integer

For Each sh In Worksheets

debug.print sh.name '增加的代码

Lastcolumn = sh.[IV1].End(xlToLeft).Column

LastRow = sh.[a65536].End(xlUp).Row

For c = 1 To Lastcolumn

If sh.Cells(1, c).Value = ＂b＂ Then

For r = LastRow To 1 Step -1

If sh.Cells(r, c).Value = ＂0＂ Then

Range(r & ＂:＂ & r).Delete shift:=xlUp

End If

Next

End If

Next

Next

End Sub