Excelで色付きセルや色の付いていないセルをカウント・合計する方法

当サイトはアフィリエイト広告を利用しています。

今回は、Excelで色付きセルや色の付いていないセルをカウント・合計する方法をご紹介します。

この記事を読めば、以下のようなことが実現可能です。

色付きセル（色指定なし）の個数をカウントする
色付きセル（色指定なし）の数値を合計する
色付きセルの個数を色別にカウントする
色付きセルの数値を色別に合計する
色の付いていないセルの個数をカウントする
色の付いていないセルの数値を合計する

目次非表示

Excelで色付きセルや色の付いていないセルをカウント・合計する方法
- 方法1：色フィルターを使う
- 方法2：ユーザー定義関数を使う
色フィルターを使って色付きセルや色の付いていないセルをカウント・合計する方法
- 色付きセルを色別にカウント・合計する方法
- 色の付いていないセルをカウント・合計する方法
ユーザー定義関数を使って色付きセルや色の付いていないセルをカウント・合計する方法
背景色の変更がユーザー定義関数の集計結果に反映されないときの対処法
ユーザー定義関数を使ったファイルを開き直すと「セキュリティリスク」が表示されるときの対処法
まとめ

目次へ

Excelで色付きセルや色の付いていないセルをカウント・合計する方法

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

色フィルターを使う
ユーザー定義関数を使う

方法1：色フィルターを使う

集計範囲が表になっている場合、色フィルターを使うことで色付きセルや色の付いていないセルをカウント・合計できます。詳しくはこちらをご覧ください。

方法2：ユーザー定義関数を使う

Excelには色を基準として集計する関数がありません。そのため、色フィルターが使えない場合や、色フィルターを使いたくない場合は、色付きセルや色の付いていないセルをカウント・合計できる関数を自分で作成する必要があります。

そこで今回、色付きセルをカウント・合計できる「CountColor関数」と、色の付いていないセルをカウント・合計できる「CountNoColor関数」という、2つのユーザー定義関数を作成してみました。これらの関数の使い方については、こちらで解説しています。

色フィルターを使って色付きセルや色の付いていないセルをカウント・合計する方法

色フィルターを使って色付きセルや色の付いていないセルをカウント・合計するには、まず見出し含む集計範囲を選択して［Ctrl］＋［T］を押し、「テーブルの作成」が表示されたら、そのまま「OK」をクリックします。

すると選択範囲がテーブルに変換されて「テーブルデザイン」タブが開くので、このタブの「集計行」にチェックを付けます。

すると、表の一番下に集計行が追加されます。

以降の手順は、何を集計するかによって異なります。詳しくは続きをご覧ください。

色付きセルを色別にカウント・合計する方法

色付きセルを色別にカウント・合計するには、集計したい列の見出しの「▼」⇒「色フィルター」⇒集計したい色を選択します。

集計したい列の集計セルをクリックし、セルの個数を数えたい場合は「個数」を、セルの数値を合計したい場合は「合計」を選択します。これで、指定した色のセルをカウント・合計できます。

色の付いていないセルをカウント・合計する方法

色の付いていないセルをカウント・合計するには、集計したい列の見出しの「▼」⇒「色フィルター」⇒「塗りつぶしなし」を選択します。

集計したい列の集計セルをクリックし、セルの個数を数えたい場合は「個数」を、セルの数値を合計したい場合は「合計」を選択します。これで、色の付いていないセルをカウント・合計できます。

なお、色フィルターはテーブルを選択した状態で「データ」タブ⇒「クリア」をクリックするか、［Alt］⇒［A］⇒［C］の順に押すことで解除できます。

ユーザー定義関数を使って色付きセルや色の付いていないセルをカウント・合計する方法

ユーザー定義関数「CountColor関数」「CountNoColor関数」を使って色付きセルや色の付いていないセルをカウント・合計するには、まずVBEを起動し、標準モジュールに以下のコードを貼り付けます。

Function CountColor(arg1 As Range, arg2 As Long, arg3 As Range)

    Dim buf As Range
    Application.Volatile
    CountColor = 0
    
    Select Case arg2
        Case 1 'セルの個数をカウントする場合
            For Each buf In arg1
                If buf.Interior.Color = arg3.Interior.Color Then
                    CountColor = CountColor + 1
                End If
            Next buf
        Case 2 'セルの数値を合計する場合
            For Each buf In arg1
                If buf.Interior.Color = arg3.Interior.Color Then
                    CountColor = CountColor + buf.Value
                End If
            Next buf
    End Select
    
End Function
Function CountNoColor(arg1 As Range, arg2 As Long)

    Dim buf As Range
    Application.Volatile
    CountNoColor = 0
    
    Select Case arg2
        Case 1 'セルの個数をカウントする場合
            For Each buf In arg1
                If buf.Interior.ColorIndex = xlNone Then
                    CountNoColor = CountNoColor + 1
                End If
            Next buf
        Case 2 'セルの数値を合計する場合
            For Each buf In arg1
                If buf.Interior.ColorIndex = xlNone Then
                    CountNoColor = CountNoColor + buf.Value
                End If
            Next buf
    End Select
                    
End Function

VBEの起動方法や、標準モジュールの挿入方法がわからない方は、以下の記事を参考にしてみてください。