excel vba给固定内容填充单元为红色（求助）

Question

用VBA
F列有ABCD部分填充颜色,在我要的结果是找出未填充颜色的内容(将其填充为红色)
例子:数据源ABCD(BC填充颜色) AD(AD未填充颜色:将AD未填充颜色在我要的结果里填充为红色)

Answer 1

Sub 肖肖()
    Dim A,  C
    For A = Sheets(1).Range("A65535").End(xlUp).Row To 1 Step -1
     C = Sheets(1).Cells(F, 1).Interior.ColorIndex

    If C =XLNONE Then
   Sheets(1).Cells(F, 1).Interior.ColorIndex= 3

    Else
    End If
   
    Next A
End Sub