★☆괴수대백과사전☆★

    For i = 1 To 100

        rg = "A" & i

        rg2 = rg & ":" & rg

        cl = Sheet1.Range(rg2).Interior.Color

        If cl = 2862825 Then

            Cells(i, 4) = ""

        End If

    Next i

1에서 100번째 열까지의 첫번째셀(A1~A100)의 색상을 확인해서

셀의 색상값이 2862825일때 셀의 값을 변경하는 매크로이다.

참고로 색상을 인식할때 범위(Range("A1:A100"))과같은 방식으로 지정하는데

예제의 내용은 각1개의 셀의 컬러만 인식하도록 했다.

다시말해 Range("A1:A1")으로 반복되는 내용이다.