VB宏Excel 2007中隐藏行如果单元格等于零

我想运行在一个表，它是一个表的一部分宏时，它会从A18到J33，第18行是头。宏应该隐藏J列单元格中具有零的行。VB宏Excel 2007中隐藏行如果单元格等于零

请帮忙!!!!!!

2013-09-27 Petty Bathish Jreish

问题要求代码必须表现出对问题的理解最小正在解决。包括尝试解决方案，为什么他们没有工作，以及预期的结果。另请参阅：[堆栈溢出问题清单]（http://meta.stackexchange.com/questions/156810/stack-overflow-question-checklist） –

当您看到您的电子表格命中ALT + F11。这会为你打开VBE（视觉基本编辑器）。

右键单击VBA Project Explorer（如果你不能看到它，然后单击视图 - > Project Explorer或CTRL +[R

插入模块

enter image description here

复制并粘贴以下代码

Sub HideRows() 
    Dim cell As Range 
    For Each cell In Range("J19:J33") 
     If Not isEmpty(cell) Then 
      If cell.Value = 0 Then 
       cell.EntireRow.Hidden = True 
      End If 
     End If 
    Next 
End Sub

Hit F5运行宏。

前

enter image description here