Sub sly()
For i = 1 To 40   --循环
If Sheets(1).Cells(i, 3) = 0 Then    --判断当第几行的第3个单元格为0时
Rows(i).Select
Selection.EntireRow.Hidden = True        ---选择隐藏为真
End If
Next i    --自增
End Sub

按下ALT+F11,双击左边的"SHEET1"(假设你的功能是在SHEET1中完成的),复制下面代码退出.只要你在这一行中输入0,这行就会自动隐藏.

Private Sub Worksheet_Change(ByVal Target As Range)
A = Target.Row
If WorksheetFunction.CountIf(Range(A & ":" & A), 0) > 0 Then
Range(A & ":" & A).Select
Selection.EntireRow.Hidden = True
End If
End Sub