【エクセルマクロ】0を空白にする：自動化で効率アップ

エクセルマクロで、数値が0のセルを空白にするVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

0を空白にする

以下のExcelVBAを実行すると、数値が0のセルを一括で空欄にします。

Sub ゼロを空欄に変換()
 
    Dim i As Long
    Dim j As Long
    Dim LastRow As Long
    Dim LastClm As Long
         
    '最終列
    LastClm = Range("A1").End(xlToRight).Column
 
    '最終行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
    '行をループ
    For i = 1 To LastRow
    
        '列をループ
        For j = 1 To LastClm
                
            '値が0だったら
            If Cells(i, j) = "0" Then
                 
                    '空白に変換
                    Cells(i, j) = ""
            
            End If
        Next j
    Next i
 
End Sub

マクロ実行後

値がゼロのセルを空欄にします。

（0のセルが分かりやすいように、事前にセルに色付けしています）

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

...

kirinote.com

2023.09.03