vba - 値がゼロの 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 の列 E のセルから値とコメントをすばやくクリア (消去) します。

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