各シートの指定の行が空白だったら、セルに色がついて強調するように条件付き書式設定をするマクロ（空白セルの強調）

ブックの中の各シートの指定の行（この場合はH列）が空白だったら




色がつくよう条件付き書式を設定するマクロ




セルに値を入力すると

色が消える設定。

コード

Sub 空白セルの強調()
    Dim ws As Worksheet
    Dim r As Long
    Dim rng As Range
    Dim cell As Range

    ' ブック内の各シートに対してループ
    For Each ws In ThisWorkbook.Sheets
        
        ' 強調したい行数を取得
        r = ws.Range("A1").CurrentRegion.Rows.Count - 1

        ' セル範囲を指定　’H列を強調したい場合
        Set rng = ws.Range("H2").Resize(r, 1)

        ' 既存の条件付き書式をクリア
        rng.FormatConditions.Delete
       
        ' 条件付き書式を設定
        SetConditionalFormat rng, xlThemeColorAccent5
      
    Next ws
    
        MsgBox "設定完了"
End Sub

Sub SetConditionalFormat(rng As Range, themeColor As Long)
    Dim cell As Range

    ' 条件付き書式を設定
    For Each cell In rng
        If Len(Trim(cell.Value)) = 0 Then
            With cell.FormatConditions.Add(Type:=xlExpression, Formula1:="=LEN(TRIM(" & cell.Address & "))=0")
                .SetFirstPriority
                .Interior.themeColor = themeColor
                .Interior.TintAndShade = 0.599963377788629
            End With
        End If
    Next cell
End Sub

注意点

強調したいセルの範囲は任意のものに変更すること