色別も！Excelで色付きセルをカウントする方法

Excelで何らかの意味を持たせてセルに色を付けている場合、色の付いたセルをカウントできれば、意味のあるデータを簡単に集計できて便利です。

そこで今回は、Excelで色付きセルをカウントする方法をご紹介します。

目次非表示

Excelで色付きセルをカウントする方法
Excelで条件に一致したセルをカウントする方法
- ○が表示されたセルをカウントする方法
- 開始日から終了日までのセルをカウントする方法
まとめ

目次へ

Excelで色付きセルをカウントする方法

Excelで色付きセルをカウントする方法には、以下のようなものがあります。

SUBTOTAL関数を使う
検索機能を使う
ユーザー定義関数を使う

SUBTOTAL関数を使う

SUBTOTAL関数（サブトータル関数）とは、指定された方法で集計する関数です。

対応バージョン365 / 2021 / 2019 / 2016 / 2013

SUBTOTAL関数の構文

SUBTOTAL（集計方法, 範囲1, 範囲2, …）

集計方法（必須）

集計方法を1～11で指定する。

1：AVERAGE
2：COUNT
3：COUNTA
4：MAX
5：MIN
6：PRODUCT
7：STDEV
8：STDEVP
9：SUM
10：VAR
11：VARP

範囲1（必須）

集計する範囲を指定する。

範囲2（省略可）

集計する追加の範囲を指定する。

（例）A1:B6の名簿（先頭行は見出し）から黄色で塗りつぶされた人数をカウントしてD2に結果を表示する。

D2に=SUBTOTAL(3,A2:A6)と入力します。

A1を選択して「データ」タブ⇒「フィルター」をクリックします。

A1の右の矢印をクリックし、「色フィルター」⇒黄色を選択します。

これでD2に黄色で塗りつぶされた人数が表示されます。

フィルターを元に戻すには、A1を選択して「データ」タブ⇒「クリア」をクリックします。

mono

黄色で塗りつぶされたセルを抽出できればいい場合は、SUBTOTAL関数は使わず、色フィルターをかけるだけでOKです。

検索機能を使う

検索機能を使って色付きセルをカウントするには、まずカウントしたい範囲を選択⇒［Ctrl］＋［H］で「検索と置換」を表示⇒「検索」タブ⇒「オプション」⇒「書式」を押します。

「書式の検索」が表示されたら、「塗りつぶし」タブを開き、カウントしたい色を選択して「OK」を押します。

「検索と置換」に戻ったら、「すべて検索」を押します。すると、該当するセルがある場合、左下に「○セルが見つかりました」というメッセージが表示されます。この数字が色付きセルのカウント結果となります。

ユーザー定義関数を使う

SUBTOTAL関数や検索機能を使うよりスマートに色付きセルをカウントするには、VBAで色付きセルをカウントする関数を作成し、その関数を使います。このようにVBAで作成した関数のことを「ユーザー定義関数」をいいます。

ユーザー定義関数を作成するには、VBEを使用します。VBEの使い方がわからない方は、まず先に以下の記事をご覧ください。

【VBA】Excelマクロとは？作り方から使い方までわかりやすく解説！

VBEを起動し、標準モジュールに以下のコードを貼り付けます。

Function CountColor(rng As Range, cellColor As Range)

    Dim buf As Range
    
    Application.Volatile
    
    CountColor = 0
    
    For Each buf In rng
        If buf.Interior.color = cellColor.Interior.color Then
            CountColor = CountColor + 1
        End If
    Next buf
    
End Function

これで、=CountColor(範囲,カウントしたい色で塗りつぶされたセル)と入力すると、範囲内の指定した色で塗りつぶされたセルがカウントされます。

コードを貼り付けたらExcelの画面に戻ります。たとえば、B2:F4の範囲で、それぞれその行のH列の色で塗りつぶされたセルをカウントし、その行のI列に結果を表示するには、I2に=CountColor(B2:F2,H2)と入力し、この数式をI4までオートフィルします。