エクセルマクロで、空白セルに色付けする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コードをご紹介します。
このページのマク...
kirinote.com
2020.05.17
