メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

Excelでグループごとにデータをカウントするにはどうすればよいですか?

Author Sun Last modified

Excelでは、単純な範囲内の値の総数をカウントすることは、ほとんどのユーザーにとって一般的で簡単なタスクです。しかし、多くの実際のシナリオ(販売レポート、在庫リスト、従業員データなど)では、情報は商品カテゴリ、部署、地域などのグループに整理されることがよくあります。このような場合、全体の合計をカウントするだけでなく、各グループ内の発生回数を把握する必要があるかもしれません。この要件は、特にグループ化されたデータをレポート用にまとめたり、データ駆動型の意思決定を行う際に一般的です。Excelには「グループごとにカウント」と明確にラベル付けされた直接的なボタンや組み込み関数はありませんが、いくつかの信頼性が高く効率的な方法があります。

以下は、Excelで各グループのデータをカウントするために使用できる実用的な方法です。初心者から上級者まで、異なるユーザーのニーズに対応するため、組み込み機能から多目的な数式ベースおよび自動化されたVBAソリューションまで幅広く紹介します。各方法には独自の利点があり、特定のワークシートシナリオに最も適したアプローチを選択しやすくなります。

ピボットテーブルを使用してグループごとにデータをカウントする
VBAコードを使用してグループごとにデータをカウントする
Excelの数式(COUNTIF/COUNTIFS)を使用してグループごとにデータをカウントする


ピボットテーブルを使用してグループごとにデータをカウントする

ピボットテーブルは、大量のデータセットをさまざまなカテゴリ別に迅速に要約するのに理想的です。たとえば、膨大な販売取引リストがあり、各製品が何回売れたかを知りたい場合、ピボットテーブルは最も便利なツールの1つです。

以下の例のようなデータセットがあり、各グループごとの発生回数をカウントしたいとします(例えば、各アイテムやカテゴリが何回現れるかを数える場合)。

a screenshot of the original data

1. カウントしたいグループとデータを含む範囲全体を選択します。Excelのリボンで、「挿入」→「ピボットテーブル」→「ピボットテーブル」をクリックします。スクリーンショットをご覧ください:

a screenshot of creating a Pivit Table

2. 「ピボットテーブルの作成」ダイアログで、ピボットテーブルを新しいワークシートまたは既存のワークシートに配置するかを選択します。「既存のワークシート」を選択した場合は、既存のデータに干渉しない空のセルを選んでください。スクリーンショットをご覧ください:

a screenshot of choose where to place the Pivot table

3. 「OK」をクリックします。Excelウィンドウの右側に「ピボットテーブル フィールド リスト」ペインが表示されます。グループ列のヘッダー(例:「アイテム」または「カテゴリ」)を「行ラベル」「値」のセクションにドラッグします。デフォルトでは、値エリアでは“カウント”関数が使用され、各エントリの出現回数が表示されます。スクリーンショットをご覧ください:

a screenshot of adding fields in Pivot table

これにより、Excelがあなたのデータをグループ化し、各グループのカウントを示すレポートがすぐに表示されます。これは、項目、製品、またはレコードのカテゴリ別の分布を視覚化するのに特に役立ちます。元のデータセットを更新した場合は、ピボットテーブルを更新して変更を反映させるようにしてください。

a screenshot of the result

ヒントと注意: データソース範囲に空白行や列が含まれている場合、ピボットテーブル作成時にそれらを除外してください。これらが含まれると、グループ化の正確性に影響を与える可能性があります。ピボットテーブルはデータを要約する直感的な方法を提供しますが、結果を他の数式やシートで再利用したり、柔軟なレポートが必要な場合は、以下の数式またはVBAソリューションも検討してください。


VBAコードを使用してグループごとにデータをカウントする

ワークブックで頻繁に異なるグループ化されたデータをカウントしてレポートする必要がある場合、または大規模なデータセットや定期的なタスクに対してこのプロセスを自動化したい場合は、VBAスクリプトを利用できます。VBA(Visual Basic for Applications)を使用すると、Excelのプロセスをカスタマイズおよび自動化でき、レポートの作成、情報の要約、またはグループカウントのエクスポートを最小限の手動操作で行えます。

注意: 新しいVBAコードを実行する前に必ず作業内容を保存してください。VBAは強力な自動化を可能にしますが、慎重に設定しないとデータが上書きされる可能性があります。

1.開発」タブ → 「Visual Basic」をクリックしてVBAエディターを開きます。表示されるウィンドウで、「挿入」 → 「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

Sub GroupCount()
    Dim dict As Object
    Dim lastRow As Long
    Dim groupCol As Range
    Dim groupCell As Range
    Dim outputRow As Long
    Dim key As Variant
    
    Set dict = CreateObject("Scripting.Dictionary")
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    ' Change Sheet1 and column as needed
    With Worksheets("Sheet1")
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set groupCol = .Range("A2:A" & lastRow)
        
        For Each groupCell In groupCol
            If Not dict.Exists(groupCell.Value) Then
                dict(groupCell.Value) = 1
            Else
                dict(groupCell.Value) = dict(groupCell.Value) + 1
            End If
        Next groupCell
        
        outputRow = 2
        .Cells(1, "C").Value = "Group"
        .Cells(1, "D").Value = "Count"
        
        For Each key In dict.Keys
            .Cells(outputRow, "C").Value = key
            .Cells(outputRow, "D").Value = dict(key)
            outputRow = outputRow + 1
        Next key
    End With
End Sub

2. コードを実行するには、 F5 キーを押すか、 Run button VBAエディター内で「実行」ボタンをクリックします。スクリプトは「Sheet1」のA列(A2から開始)にあるグループデータをスキャンし、各グループのカウントを集計し、C列およびD列(2行目から開始)に出力結果を要約します。

注意: 必要に応じて、「Sheet1」、列参照、出力先を具体的なワークブックに合わせて変更できます。データに空白セルや特殊なケースが含まれる場合は、結果を確認して正確性を確保してください。「Apple」と「apple」のように重複グループ名が異なる表記の場合、これらは異なるグループとして扱われます。カスタマイズされたグルーピング(大文字・小文字を区別しない、ソートされた出力、またはより複雑なグルーピング)が必要な場合は、VBAコードにさらに追加が必要かもしれません。

VBAは、特に大規模または頻繁に更新されるデータセットを扱う場合、手動での要約が時間のかかる自動化された繰り返しタスクに最適です。「Object variable not set」や「Subscript out of range」などのエラーが発生した場合は、シートおよび範囲参照が実際のデータ構造と一致していることを確認してください。


Excelの数式(COUNTIF/COUNTIFS)を使用してグループごとにデータをカウントする

ワークシートグリッド上で直接作業することを好むユーザー、またはさらなる計算や参照のために動的で数式ベースのソリューションが必要なユーザーには、ExcelのCOUNTIFおよびCOUNTIFS関数が効果的な回避策を提供します。これらの数式は、基になるデータが変更されたときにグループのカウントを自動的に更新したい場合や、データのすぐ隣に結果が必要な場合に特に役立ちます。

例のシナリオ: データがA列(グループ名)とB列(値)にあると仮定し、各グループが何回現れるかをカウントしたいとします。

1. データの隣の新しい列(例:セルC2)に、各グループのカウントを計算する以下の数式を入力します。

=COUNTIF($A$2:$A$100, A2)

2. 数式を入力したら、Enterキーを押します。この数式をすべての行に適用するには、C2セルのフィルハンドルを下にドラッグしてデータに沿ってセルを埋めるか、フィルハンドルをダブルクリックして自動的に埋めます。数式はその行のグループの発生回数を返します。

3. すべてのグループの一意のリストとその対応するカウントを取得したい場合は、まず一意のグループ名を抽出します(バージョンに応じて「重複を削除」機能またはUNIQUE数式を使用)、その後、一意のリストにCOUNTIF数式を適用します。

パラメーターの説明: 上記の数式では、$A$2:$A$100はグループ名を含む範囲です。実際のデータに合わせてこの範囲を調整してください。A2は現在の行のグループ値のセル参照です。

この数式ソリューションは非常に柔軟で、フィルタリングされたリスト、ソートされたデータ、または他の計算と一緒に使用できます。ただし、非常に大きなデータセットに適用する場合は、再計算に時間がかかる可能性があるため、パフォーマンスに注意してください。

COUNTIFSは、グループ化がより複雑な場合(例:カテゴリと地域の両方でグループ化する場合)に複数の条件でカウントできます。


関連記事:


最高のオフィス業務効率化ツール

🤖 Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Executionコード生成カスタム数式の作成データの分析とグラフの生成Kutools Functionsの呼び出し……
人気の機能重複の検索・ハイライト・重複をマーキング空白行を削除データを失わずに列またはセルを統合丸める……
スーパーLOOKUP複数条件でのVLookup複数値でのVLookup複数シートの検索ファジーマッチ……
高度なドロップダウンリストドロップダウンリストを素早く作成連動ドロップダウンリスト複数選択ドロップダウンリスト……
列マネージャー指定した数の列を追加列の移動非表示列の表示/非表示の切替範囲&列の比較……
注目の機能グリッドフォーカスデザインビュー強化された数式バーワークブック&ワークシートの管理オートテキスト ライブラリ日付ピッカーデータの統合セルの暗号化/復号化リストで電子メールを送信スーパーフィルター特殊フィルタ(太字/斜体/取り消し線などをフィルター)……
トップ15ツールセット12 種類テキストツールテキストの追加特定の文字を削除など)50種類以上のグラフガントチャートなど)40種類以上の便利な数式誕生日に基づいて年齢を計算するなど)19 種類の挿入ツールQRコードの挿入パスから画像の挿入など)12 種類の変換ツール単語に変換する通貨変換など)7種の統合&分割ツール高度な行のマージセルの分割など)… その他多数
Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応!

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...


Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

  • Word、Excel、PowerPointでタブによる編集・閲覧を実現
  • 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
  • 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

Excel Word Outlook Tabs PowerPoint
  • オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
  • 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
  • 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
  • 30日間フル機能お試し —— 登録やクレジットカード不要
  • コストパフォーマンス最適 —— 個別購入よりお得