データの状態を色で識別するのはあまり好きではありませんが どうしてもそうしたい時があります。 そういう時はユーザー定義関数で。
Function ColorCount(R1 As Range, C As Range) As Long Dim r As Range Application.Volatile 'ユーザー定義関数を自動再計算関数にします ColorCount = 0 '初期値 For Each r In R1 If r.Interior.Color = C.Interior.Color Then 'セルの色をチェックします ColorCount = ColorCount + 1 End If Next r End Function