ゼロの値を持つ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

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