Sub test()
Dim A As String, B As String, C As String, D As String
Dim i As Integer

For i = 1 To 10 '這裡只假設有10筆資料,且資料存在於同一worksheet
A = "A" & i
B = "B" & i
C = "C" & i
D = "D" & i

If Range(B).Font.ColorIndex = 3 Then
Range(A).Value = 1
ElseIf Range(C).Font.ColorIndex = 3 Then
Range(A).Value = 1
ElseIf Range(D).Font.ColorIndex = 3 Then
Range(A).Value = 1
Else
Range(A).Value = ""
End If
Next i

End Sub