如果你的零值都在C列的话，则按如下解决，其它类似参考。
Sub ddkk()
application.screenupdating = false
For i = 1 To 200 '此处的200可以根据你的实际需要来定
If Cells(i, 3) = 0 Then Rows(i).Hidden = True
Next
application.screenupdating = true
End Sub
sub hh()
for i=1 to 20
if cells(5,i)=0 then column(i).hidden=true
next
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024