Excel VBA セルの不要0表示を空白にしてデータの視認性を向上させる方法

Option Explicit

Sub ZeroToBlank()
    Dim targetRange As Range
    Dim cell As Range
    
    ' 対象の範囲を指定（例: A1からE10までのセル）
    Set targetRange = Range("A1:E10")
    
    ' 対象範囲内のセルに対してループ処理
    For Each cell In targetRange
        ' セルの値が0の場合、空白に変更
        If cell.Value = 0 Then
            cell.Value = ""
        End If
    Next cell
End Sub