Удалить ячейки в Excel, которые имеют нулевые значения

Question

Я пытаюсь удалить/скрыть ячейки, значения которых равны нулю (0).

Sub HideRows() 
    Dim cell As Range, rng As Range 
    Cells.Rows.Hidden = False 

    On Error Resume Next 
    Set rng = Columns(5).SpecialCells(xlConstants, xlNumbers) 
    On Error GoTo 0 

    For Each cell In rng 
     If cell.Value = 0 Then 
      cell.EntireRow.Hidden = True 
     End If 
    Next 

End Sub 

Код удаляет всю строку. Я хочу удалить описание значения и значения.

Answer 1

Этот код будет быстро очистить (стирают) значения и комментарии из ячеек в столбце Е, которые имеют значение 0

Sub Testme() 
     Dim rng1 As Range 
Set rng1 = Columns(5) 
With rng1 
    .AutoFilter 1, "0" 
    With rng1.Offset 
     .ClearContents 
     .ClearComments 
    End With 
    With rng1.Offset(0, -1) 
     .ClearContents 
     .ClearComments 
    End With 
End With 
End Sub