グループごとに値をランク付けするにはどうすればよいですか？

Author Sun Last modified 2025-08-26

Excelでグループ化されたデータを扱う場合、リージョンごとの売上、クラスごとのテストスコア、カテゴリごとの取引金額など、各グループ内の値を比較する必要がよくあります。Excelはデータのランク付けに強力なツールを提供していますが、グループ内でのランク付け（「グループごとのランク付け」または「条件付きランク付け」とも呼ばれます）には特定の方法が必要です。これは、グループ間の結果を混ぜることなく、異なるカテゴリ間でパフォーマンスを評価したり、トップおよびボトムのレコードを特定したりする際に特に役立ちます。以下の方法では、グループごとに値をランク付けするための実用的なソリューションを探り、日常業務でデータを正確に解釈し分析することを容易にします。
A screenshot showing a grouped data set with ranked values in Excel

グループごとに値をランク付け
VBAコード - マクロを使用して各グループ内の値のランク付けを自動化

グループごとに値をランク付け

クラスごとの学生のスコアリングや異なる地域ごとの売上のリストアップなど、明確なグループ内で値をランク付けする必要がある場合、Excelには直接的な「グループごとのランク」機能はありません。ただし、適切に作成された数式を使用することで、余分なデータ操作なしに効率的にグループごとのランク付けを行うことができます。

これを行うには、論理テストと集計関数を組み合わせた配列数式を使用できます。このアプローチにより、指定されたグループ内でのみ各値を比較でき、必要な各データポイントのランクを生成できます。

以下の手順に従ってください：

グループ（A2:A11）や値（B2:B11）のように、グループ化されたデータを列に準備します。
データの隣の空白セルを選択します。通常は値の隣の最初の行、例えばセルC2です。
次の数式を入力します：

=SUMPRODUCT(($A$2:$A$11=A2)*(B2<$B$2:$B$11))+1

この数式は、同じグループ内の他の値よりも小さい値の数をカウントすることで動作します。以下は各パラメータの意味です：

($A$2:$A$11=A2)
→ これは範囲A2:A11の各セルがA2の値と等しいかどうかをチェックします。
→ 各行がA2と同じグループに属しているかどうかをTRUE/FALSE（または1/0）の配列として返します。
(B2<$B$2:$B$11)
→ これはB2:B11のどの値がB2より大きいかをチェックします。
→ B2が指定された値より小さい場合はTRUE（1）、そうでない場合はFALSE（0）を返します。
* （乗算）
→ これにより、次の2つの条件が組み合わされます：
グループ一致 (A2)
B2の値が他の値よりも小さい
→ したがって、同じグループに属し、小さい値を持つ行のみがカウントされます。
SUMPRODUCT(...)
→ 両方の条件を満たす行の数を合計します。
+1
→ ランクは1から始まる（0ではなく）ので、小さい値のカウントに1を加えます。

この数式をC2に入力したら、オートフィルハンドルを下にドラッグして、データセット内のすべての関連行にこの数式を適用します。数式は自動的に各行のグループと値を調整し、そのグループ内のランクを返します。 A screenshot showing the Excel formula applied to rank values by group in a worksheet

ヒントと注意点：

範囲が大きい場合は、セル参照を適宜更新してください。
降順のランク（例：最大値が1の場合）が必要な場合は、数式の比較を B2<$B$2:$B$11 から B2>$B$2:$B$11 に変更します。
重複する値を処理するために、この数式は同じグループ内の等しい値に同じランクを割り当てます。一意の連続ランクが必要な場合は、追加の補助列を使用することを検討してください。

この数式ベースの方法は柔軟性があり、ほとんどのグループ化されたテーブル構造に簡単に適用できます。ただし、非常に大きなデータセットの場合、配列ロジックに依存しているため計算性能が低下する可能性があります。

VBAコード - マクロを使用して各グループ内の値のランク付けを自動化

ランク付けプロセスを自動化したいユーザー、または大規模なデータセットをより効率的に処理したいユーザーにとって、VBAマクロを作成することは貴重なアプローチです。マクロは繰り返しのステップを自動化し、さらに多くのカスタマイズを提供し、複雑な数式と比較してデータを迅速に処理できます。これは、定期的なレポート生成、繰り返されるランキングタスク、またはワークシート内の数式の混乱を避けたい場合に理想的です。

作業を進める前に、必ず作業を保存し、Excel設定でマクロを有効にしてください。以下はこのソリューションをスクリプト化して実行する方法です：

Alt + F11 キーを押してVBAエディターを有効にします。表示される Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックし、開かれたモジュールに次のコードを貼り付けます：

Sub RankValuesByGroup()
    Dim DataRange As Range
    Dim GroupRng As Range
    Dim ValueRng As Range
    Dim OutCol As Range
    Dim dictGroups As Object
    Dim arrValues, arrRanks
    Dim i As Long, j As Long
    Dim GroupKey As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set DataRange = Application.InputBox("Select the data table range (including group and value columns)", xTitleId, Selection.Address, Type:=8)
    If DataRange Is Nothing Then Exit Sub
    
    Set GroupRng = Application.InputBox("Select the group column within your range", xTitleId, DataRange.Columns(1).Address, Type:=8)
    Set ValueRng = Application.InputBox("Select the value column to rank within your range", xTitleId, DataRange.Columns(2).Address, Type:=8)
    
    Set OutCol = DataRange.Offset(0, DataRange.Columns.Count).Resize(DataRange.Rows.Count, 1)
    OutCol.Cells(1).Value = "RankByGroup"
    
    Set dictGroups = CreateObject("Scripting.Dictionary")
    arrValues = ValueRng.Value
    arrRanks = ValueRng.Value
    
    ' Build group dictionaries for ranking
    For i = 2 To UBound(arrValues, 1)
        GroupKey = GroupRng.Cells(i, 1).Value
        If Not dictGroups.Exists(GroupKey) Then
            dictGroups.Add GroupKey, CreateObject("System.Collections.ArrayList")
        End If
        dictGroups(GroupKey).Add arrValues(i, 1)
    Next i
    
    ' Rank within each group
    For i = 2 To UBound(arrValues, 1)
        GroupKey = GroupRng.Cells(i, 1).Value
        Dim countLower As Long
        countLower = 0
        For j = 0 To dictGroups(GroupKey).Count - 1
            If dictGroups(GroupKey)(j) < arrValues(i, 1) Then
                countLower = countLower + 1
            End If
        Next j
        arrRanks(i, 1) = countLower + 1
    Next i
    
    ' Output results
    For i = 2 To UBound(arrRanks, 1)
        OutCol.Cells(i, 1).Value = arrRanks(i, 1)
    Next i
    
    MsgBox "Ranking by group completed.", vbInformation, xTitleId
End Sub

実行をクリックします。ダイアログボックスが表示され、全データ範囲、グループ列、および値列を選択するように求められます。その後、マクロは新しい列を生成し、各グループ内の値のランクを表示します。

注意事項とトラブルシューティング：

列選択がデータと一致していることを確認してください。グループ列と値列は正しく整列されている必要があります。
データヘッダーが含まれている場合、正しいランキングのためにコード内の初期ループインデックスを調整してください（データ構造に応じて）。
降順でランク付けするには、If dictGroups(GroupKey)(j) < arrValues(i,1) の比較を適宜修正します。
アクセス許可やマクロのセキュリティ警告が表示される場合は、ファイル > オプション > 信頼センター の下にある Excel のマクロセキュリティ設定を確認してください。

このVBA方法は、特に自動化されたレポート作成ワークフローと統合される場合、より高度または拡張されたアプリケーションにおいて柔軟性と堅牢なパフォーマンスを提供します。

Kutools AIでExcelの魔法を解き放つ

スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
カスタム数式: ワークフローを合理化するための独自の数式を生成します。
VBAコーディング: 簡単にVBAコードを作成し実装します。
数式の解釈: 複雑な数式を簡単に理解できます。
テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

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

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