按下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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024