当某单元格的值为零时，将整行隐藏，求函数公式。

来源：百度知道 编辑：UC知道 时间：2024/05/30 04:39:51
我的表格有很多列，我只检查其中一列，如E列，当E5、E8、E12......的值等于0时，就自动把第5行、第8行和第12行等全部隐藏起来，有什么办法吗？
我用过一楼的代码了，好象不行哦。

sub a（）
dim n as integer
n=msgbox("输入你要检查的行数（数字：如：100表示检查从第一行到100行）")

for i=1 to n
if sheet1.cells(i,m)=0 then'如果sheet1的i行 ，m列的值为"0"
Sheet1.Rows(i).Hidden = True'将改行隐藏
end if
next i
end
复制以上代码到sheet1的宏代码窗口中Alt+F8运行
补充：
以上代码有几处不完整,使用下面的
Sub a()
Dim n As Integer
n = InputBox("输入你要检查的行数（数字：如：100表示检查从第一行到100行）")
m=msgbox("输入你要检查的列数（数字：如：5表示检查第五列）")
For i = 1 To n
If Sheet1.Cells(i, m) = "0" Then '如果sheet1的i行 ，m列的值为"0"
Sheet1.Rows(i).Hidden = True '将改行隐藏
End If
Next i
End Sub