セルの色をカウントする - Excel2013

Excel2013でセルの特定の背景色をカウントする方法です。
背景色はInterior.Colorで取得できます。

下記シートの背景色が赤色のセルをカウントします。

リボンの［開発］－コントロールグループの［コードの表示］をクリックします。
VBE画面が開きます。

下のコードをコピーしペーストします。
調べる最大行数・列数は調査範囲に応じて変更してください。（大きくすると処理時間が長くなります）

Sub MyCountColor()
n = 0
For i = 1 To 1000   '調べる最大行数
    For j = 1 To 500   '調べる最大列数
        If Cells(i, j).Interior.Color = RGB(255, 0, 0) Then
            n = n + 1
        End If
    Next
Next
MsgBox "色の数 ： " & n
End Sub

次にカーソルをペーストしたコード内に移動し、上の［Sub/ユーザーフォームの実行（F5）」をクリックします。
色の数のカウント結果が表示されます。