如果你不喜欢筛选的话，用宏很快解决。同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim cell As Range
For Each cell In Range("D7:D45")
If cell.Value = 0 And cell.Value <> "" Then cell.EntireRow.Hidden = True
Next
End Sub
在此界面之间按F5运行此宏，完成。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024