Excel에서 값이 0 인 셀을 제거합니다.

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