【エクセルマクロ】 空白セルに色付け:コピペで使えるコード

エクセルマクロ_空白セルに色付け_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、空白セルに色付けするVBAコードをご紹介します。

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

空白セルに色付け

以下のExcelVBAを実行すると、空白セルに色付けして目立たせます。

Sub 空白を強調()

Dim i As Long
Dim j As Long
Dim LastRow As Long
Dim LastColumn As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '最終列を取得
    LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

    '行をループ
    For i = 2 To LastRow

        '列をループ
        For j = 2 To LastColumn

            '空欄だったら
            If Cells(i, j) = "" Then

                '背景色に色付け
                Cells(i, j).Interior.Color = 65535

            End If
        Next j
    Next i

End Sub

 

マクロ実行後

空白スペースのセルの背景色に色をつけて、強調します。


 
 

空白セルに色付け(特定の列)

以下のExcelVBAを実行すると、特定列のスペースに色を付けます。

Sub 列の空白を強調()

Dim i As Long
Dim LastRow As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '行をループ
    For i = 2 To LastRow

        '空白だったら
        If Cells(i, 1) = "" Then

            '背景色に色付け
            Cells(i, 1).Interior.Color = 65535

        End If
    Next i

End Sub

 

マクロ実行後

空白スペースのセルの背景色に色をつけます。


 
 

空白セルに色付け(特定の行)

以下のExcelVBAを実行すると、特定行のブランクになっているセルを塗りつぶします。

Sub 特定行の空白を強調()

Dim i As Long
Dim LastRow As Long

    '最終列を取得
    LastRow = Cells(1, Columns.Count).End(xlToLeft).Column

    '行をループ
    For i = 2 To LastRow

        '空欄だったら
        If Cells(1, i) = "" Then

            '背景を着色
            Cells(1, i).Interior.Color = 65535

        End If
    Next i

End Sub

 

マクロ実行後

空白スペースのセルの背景色に色つけします。


 
 

【エクセルマクロ】オートフィルタで空白以外を抽出:1行コード
エクセルマクロで、オートフィルタで空白以外を抽出するVBAコードをご紹介します。 このページのマク...