목적

코드

Sub setFormatCondition()

  'A2:G100の範囲に条件を設定
  With Sheet3.Range("A2:G100")
    ' Typeは数式（xlExpression）。
    '「$A」で列全体を指定
    'Fomula1で空白の場合の条件を設定。
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$A2="""""
    .FormatConditions(1).SetFirstPriority
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
  End With

End Sub

결과