删除Excel中具有零值的单元格

我一直试图删除/隐藏值等于零（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

此代码将快速清除（擦除）E列中值为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