特定条件の行の，データが入力されているセルのみ強調表示する

強調表示.vbs

Private Const 強調色 = 4
Private Const 検索開始列 = 2
Private Const 検索最終列 = 6
Private Const 検索開始行 = 2
Private Const 検索最終行 = 6

Public Sub 強調表示_1件のみ()
    Dim r As Range: Set r = Range(Cells(検索開始行, 検索開始列), Cells(検索最終行, 検索開始列))
    
    Dim c As Range
    For Each c In r
        Dim s As Range: Set s = Range(Cells(c.Row, c.Column), Cells(c.Row, 検索最終列))
        If WorksheetFunction.CountA(s) = 1 Then
            Dim d As Range
            For Each d In s
                If d <> "" Then
                    d.Interior.ColorIndex = 強調色
                End If
            Next d
        End If
    Next c

End Sub