셀 값이 0인 경우 해당 셀 값 삭제

선택한 영역에서 셀 값이 0인 경우 해당 값을 삭제하는 VBA 코드

 

Sub DeleteZeroValues()
    Dim rng As Range
    Set rng = Application.InputBox("Select a range of cells", Type:=8)

    If rng Is Nothing Then
        MsgBox "Cancelled", vbInformation
        Exit Sub
    End If
    
    Dim cell As Range
    For Each cell In rng
        If cell.Value = 0 Then
            cell.Value = ""
        End If
    Next cell
End Sub