Excel で動的なトップ10 リストまたはトップ N リストを作成するには、どうすればよいですか？

著者Xiaoyang変更日2025-07-25

多くのプロジェクトやビジネスプロセスでは、個人、組織、製品などのエンティティをパフォーマンスや数値に基づいてランキングすることがよくあります。「トップリスト」は、成績上位の学生、売上トップの営業担当者、最も収益を上げた部門など、最高のパフォーマンスを発揮した項目を際立たせるために活用されます。たとえば、学生の成績表から表彰や分析、教育成果のモニタリングのために上位10 人のスコアを動的に抽出したい場合があるでしょう（下記スクリーンショット参照）。Excel で動的なトップ10 リスト（またはトップ N リスト）を作成すれば、データが更新された際に結果も自動で反映され、手動でのランキングに伴う時間の浪費やミスを防げます。本ガイドでは、多様なデータ分析ニーズに対応できるよう、数式、ピボットテーブル、VBA マクロを活用した実用的なソリューションをいくつかご紹介します。

動的トップ10またはn件のリストを作成

Excel で動的トップ10 リストを作成する

動的トップ10 リストを作成するための数式
条件付きで動的トップ10 リストを作成するための数式

Office 365 で動的トップ10 リストを作成する

動的トップ10 リストを作成するための数式
条件付きで動的トップ10 リストを作成するための数式

PivotTable を使用して動的トップ10 リストを作成する

PivotTable：トップ N 件の結果をインタラクティブに自動表示

VBA を使用して動的トップ10 リストを作成する

VBA マクロ：トップ N リストを自動生成・自動更新

Excel で動的トップ10 リストを作成する

Excel 2019 以前のバージョンでは、動的トップ10（またはトップ N）リストを作成するには、トップ値とそれに関連する名前や ID を同時に抽出する数式を組み合わせる必要があります。この方法は広く使われており、データが変更された際にリストが自動的に更新されるようにしたい場合に最適です。以下では、従来のExcel 数式を使ってこれを実現する手順を説明します。これらの数式は柔軟性に優れ、特別なアドインを必要としませんが、最新の動的配列関数と比べると設定がやや複雑になります。

動的トップ10 リストを作成するための数式

1。まず、数値範囲から上位10 件の値を抽出する必要があります。空白セル（例：G2 セル）に次の数式を入力し、入力後、フィルハンドルを下にドラッグして、動的なトップ10 リストを生成してください（スクリーンショット参照）。

=LARGE($B$2:$B$20,ROWS(B$2:B2))

注：ここでは、B2:B20がスコアまたは値の範囲であり、B2がその列の最初のセルです。データのサイズと位置に応じてこれらのセル参照を調整してください。

数式を適用してトップ10の値を抽出

2。次に、抽出したトップ値に対応する名前（または ID）を表示するには、F2 セルに次の数式を入力してください。これは配列数式のため、入力後にCtrl + Shift + Enterを押して確定します。この数式は、先ほど抽出したトップ値に対応する名前を検索します。

=INDEX($A$2:$A$20,SMALL(IF($B$2:$B$20=G2,ROW($B$2:$B$20)-ROW($B$1)),COUNTIF($G$2:G2,G2)))

パラメーターの説明：
-A2:A20は氏名を取得する範囲です。
-B2:B20はスコアまたは値の範囲です。
-G2は上記の数式から得られるトップ値です。
-B1は値リストのヘッダーであり、ROW 計算におけるオフセットに使用されます。
この数式は、最高値をその氏名に動的にリンクします。値の範囲に重複がある場合、COUNTIF 関数により、同じスコアを持つ各氏名が一度だけ表示されます。

数式を使用して関連項目を取得

3。最初の結果を抽出した後、F2 セルの数式を選択し、必要な行数までフィルハンドルを下にドラッグして数式をコピーします。これにより、すべてのトップエントリーの名前がスコアと連動して動的に表示されるようになります（スクリーンショット参照）。

数式を他のセルにドラッグしてコピー

KUTOOLS AI でExcel の魔法を解き放ちましょう

スマート実行：セル操作、データ分析、チャート作成をすべてシンプルなコマンドで実現します。
カスタム数式：ワークフローの効率化に役立つ、あなただけのカスタマイズ数式を生成します。
VBA コーディング：VBA コードを簡単に記述・実装できます。
数式の解釈：複雑な数式が簡単に理解できます。
テキスト翻訳：スプレッドシート内で言語の壁を乗り越えましょう！

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

条件付きで動的トップ10 リストを作成するための数式

一部の分析タスクでは、特定のグループ、チーム、カテゴリなど、所定の条件を満たすエントリーだけを抽出したトップリストが必要になることがあります。たとえば、複数のクラスの成績が混在するデータシートから、「クラス1」に所属する上位10 件のスコアのみを特定したいといったケースが考えられます。このような場合、以下の手順で数式を利用できます：

条件付きで動的トップ10リストを作成

1。まず、指定した条件（例：「クラス1」）を満たす上位10 件の値をデータセットから抽出します。対象セル（例：J2 セル）に次の数式を入力してください：

=LARGE(IF($B$2:$B$25=$F$2,$C$2:$C$25),ROW(I2)-ROW(I$1))

2。数式を入力したら、Ctrl + Shift + Enterを押して配列数式として確定し、その後フィルハンドルを下にドラッグして他のセルにも適用します。この数式は、選択した条件（例：「クラス1」のすべてのスコア）に一致する上位10 件の値を返します。

条件に基づいてトップ10の値を抽出する数式を適用

3。これらの上位値に対応する名前を条件に基づいて一覧表示するには、以下の数式をセル I2 にコピーして貼り付け、Ctrl + Shift + Enterキーを押して配列数式として入力してください。その後、必要に応じて下方向にフィルハンドルをドラッグして、完全な名前リストを生成します。

=INDEX($A$2:$A$25,SMALL(IF(($C$2:$C$25=J2)*($B$2:$B$25=$F$2),ROW($C$2:$C$25)-ROW($C$1)),COUNTIF(J2:$J$2,J2)))

Office365で動的トップ10リストを作成する数式を使用

数式内の範囲が実際のデータ構成と一致するよう調整してください。また、広範囲にわたって配列数式を使用すると、パフォーマンスが低下する可能性がある点にご注意ください。上位10 位内に重複する値が含まれる場合、その数式は重複したスコアを適切に処理し、同じ成績の学生が複数いる場合には複数の氏名を表示します。

Office 365 で動的トップ10 リストを作成する

Excel の旧バージョンでは複数の関数を組み合わせて配列数式を使う必要がありましたが、Office 365（およびExcel 2021）では INDEX、SORT、SEQUENCE、FILTER などの動的配列関数が登場し、ワークフローが大幅にシンプルになりました。これらの関数を使えば、動的なトップ10 リストを簡単に作成でき、エラーも減らせるため、頻繁に拡張・変更されるテーブルに特に適しています。常に更新されるデータ環境で作業するなら、これらの関数が分析を効率化し、ビジネス上の意思決定をより迅速にサポートします。

動的トップ10 リストを作成するための数式

Office 365 を使って動的トップ10 リストを抽出・表示するには、目的の出力セルに以下の数式を入力してください。必要な範囲と数値を調整するだけで、データが更新されるたびに最新のトップ10 結果が自動的に反映されます。

=INDEX(SORT(A2:B20,2,-1),SEQUENCE(10),{1,2})

Enterキーを押すだけで、完全なトップ10 リストが即座に表示され、動的状態が維持されます。そのため、追加されたデータや修正されたスコアはランキングにすぐに反映されます。

Office365で動的トップ10リストを作成する数式を使用

ヒント：

SORT 関数：

=SORT(array, [sort_index], [sort_order], [by_col])

array：並べ替えたい範囲です。
[sort_index]：並べ替えの基準となる列の番号です。一般的な成績表では、通常2 列目になります。
[sort_order]：昇順の場合は1、降順の場合は-1 を指定してください。上位スコアを取得するには、-1 をご利用ください。
[by_col]：列単位で並べ替える場合（TRUE）、行単位で並べ替える場合（FALSE または省略）です。

例：SORT(A2:B20,2,-1)は、A2:B20 の範囲を2 列目を基準に降順で並べ替えます。

SEQUENCE 関数：

=SEQUENCE(rows, [columns], [start], [step])

rows：返す行数（例：トップ10 リストの場合は10）。
[columns]：（省略可）返す列の数。
[start]：（省略可）開始値。
[step]：（省略可）増分値。

SEQUENCE(10)は1 から10 までの数値を生成し、INDEX 関数が上位10 件の並べ替え済み結果を取得できるようにします。

これらを組み合わせることで、=INDEX(SORT(A2:B20,2,-1),SEQUENCE(10),{1,2})により、動的で2 列のトップ10 リストが簡単に作成できます。

条件付きで動的トップ10 リストを作成するための数式

特定のグループ（例：「クラス1」）からトップ10 を抽出したい場合は、これらの高度な Office 365 関数を使って、指定した条件を満たす行のみで構成されるトップ N リストを作成できます。以下の数式を目的のセルに貼り付け、範囲や条件を必要に応じて調整してください。

=INDEX(SORT(FILTER(A2:C25,B2:B25=F2),3,-1),SEQUENCE(10),{1,3})

数式を入力したら、あとはEnterキーを押すだけ！指定した条件に合致するデータのみをフィルタリング・ランキングしたトップ10 リストが即座に表示され、データや条件を変更するたびに自動で更新されます。

Office365で条件付きの動的トップ10リストを作成する別の数式

ヒント：

FILTER 関数：

=FILTER(array, include, [if_empty])

array：フィルターを適用するセル範囲。
include：抽出条件（例：特定のクラスに一致するなど）
[if_empty]：（省略可）条件に一致する結果がない場合に表示される内容。

=FILTER(A2:C25,B2:B25=F2)は、B 列の値が F2 セルの値と一致する行だけを抽出します。

PivotTable を使用して動的トップ10 リストを作成する

PivotTable：トップ N 結果をインタラクティブに自動表示

動的トップ N リストを作成するもう一つの方法として、Excel のピボットテーブル機能を活用する方法があります。この方法は、大規模なデータセットを扱う場合や、インタラクティブな分析（トップ項目数の素早い変更やフィルターの適用など）が必要なとき、あるいは複雑な数式を使いたくない場面に特に適しています。ピボットテーブルは操作が直感的でユーザーフレンドリーであり、データが更新されると自動で反映されるため、他者と共有するダッシュボードやレポートに最適です。

PivotTable を使用して動的トップ N リストを作成するには：

データテーブル内の任意のセルをクリックし、次に挿入＞ピボットテーブルを選択してください。
ピボットテーブルのダイアログボックスで、PivotTable の配置場所を指定し、OKをクリックします。
「名前」（または同様の識別子）フィールドを行ラベルエリアにドラッグしてください。
「スコア」（または数値列）フィールドを値エリアにドラッグしてください。通常は「合計」または「個数」として表示されますが、トップリストの場合は「合計」または「最大値」が一般的です。必要に応じて、右クリックして集計方法を選択し、集計方法を変更してください。
「スコア」列を降順に並べ替えるには、セルを右クリックして並べ替え＞最大から最小への並べ替えを選択してください。
上位 N 件の結果に絞り込むには、「行ラベル」のドロップダウン矢印をクリックし、値フィルター＞上位10。。。を選択して、表示件数（例：上位10）とフィルター対象のフィールドを設定し、OKをクリックしてください。

これで、PivotTable に動的トップ10（または指定した任意の N）が表示されます。トップ N を変更するには、フィルター設定を再度開いてください。データが変更された場合は、PivotTable を更新してランキングを即座に反映させます。

この方法のメリットは、設定が素早く完了し、並べ替えが簡単で、インタラクティブに調整できることです。ただし、行エリアまたは値エリアに含まれていない限り、PivotTable は他の列からの対応する行を自動的に追加できません。上級ユーザーは、グループ化やスライサーの作成、トップ N フィルターのダッシュボードへの組み込みにより、さらにレポートをカスタマイズできます。

VBA を使用して動的トップ10 リストを作成する

VBA マクロ：トップ N リストを自動生成・自動更新

VBA マクロは、広範囲または頻繁に更新されるデータを扱い、動的トップ N リストの抽出と更新を自動化したいユーザーに最適です。マクロを使えば、繰り返し作業を削減し、一貫性を確保できます。データをソートして、実行時に上位 N 行のみを指定の場所にコピーするルーチンを簡単に作成できます。

VBA マクロを使用して動的トップ N リストを作成するには、次の手順に従ってください：

開発＞Visual Basicをクリックして、VBA エディターを開きます。（「開発」タブが表示されていない場合は、「ファイル」＞「オプション」＞「リボンのユーザー設定」で「開発」タブを有効にしてください。）
VBA ウィンドウで、挿入＞標準モジュールをクリックして、新しいモジュールを追加しましょう。
以下の VBA コードをモジュールに貼り付けます：

Sub ExtractTopNList()
'Updated by Extendoffice 2025/7/24
    Dim DataRange As Range
    Dim OutputRange As Range
    Dim N As Integer
    Dim ws As Worksheet, tempWS As Worksheet
    Dim xTitleId As String
    Dim LastCol As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = ActiveSheet
    Set DataRange = Application.InputBox("Select the full data range to analyze (including headers)", xTitleId, ws.UsedRange.Address, Type:=8)
    Set OutputRange = Application.InputBox("Select the top-left cell of the output area", xTitleId, "", Type:=8)
    N = Application.InputBox("How many top items to extract? (Enter a positive integer)", xTitleId, 10, Type:=1)
    
    If DataRange Is Nothing Or OutputRange Is Nothing Or N < 1 Then Exit Sub
    
    ' Create a temporary worksheet to avoid sorting original data
    Set tempWS = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    DataRange.Copy tempWS.Range("A1")
    
    ' Determine last column for sorting key
    LastCol = DataRange.Columns.Count
    
    ' Sort in temporary sheet
    tempWS.UsedRange.Sort Key1:=tempWS.Cells(1, LastCol), Order1:=xlDescending, Header:=xlYes
    
    ' Copy headers and top N rows to output
    tempWS.Rows(1).Copy Destination:=OutputRange
    tempWS.Range("A2").Resize(N, LastCol).Copy Destination:=OutputRange.Offset(1, 0)
    
    ' Optional: Delete temporary sheet
    Application.DisplayAlerts = False
    tempWS.Delete
    Application.DisplayAlerts = True
    
    Application.CutCopyMode = False
End Sub

4。マクロを実行するには、データがヘッダー付きのテーブル形式で正しく配置されていることを確認してください。F5キーを押すか、VBA エディターのボタンをクリックすると、次のように指示されます：

適切な並べ替えを行うために、ヘッダーを含むデータ範囲を選択します。
結果を貼り付ける出力セルを選択してください。
N の数値を入力してください（例：トップ10 の場合は「10」）。

マクロは、指定した場所にヘッダー付きの上位 N 件のエントリをコピーします。

初めてテストする際は、バックアップまたはブックのコピーで実行することをおすすめします。エラーが発生した場合（誤った範囲を選択したなど）は、再度実行して、範囲とデータ構成が正しいことをご確認ください。

このソリューションは、繰り返しのレポート作成タスクを自動化したり、ダッシュボードを構築したり、手動での数式入力や並べ替えなしにトップ N レポートを素早く更新したい場合に最適です。さらに、VBA スクリプトをカスタマイズすれば、列を指定した並べ替えや結果を別ブックにエクスポートするなど、より複雑なランキングロジックにも対応可能です。

トラブルシューティング：マクロが期待通りに動作しない場合は、データテーブルに適切なヘッダーが含まれていること、並べ替え時の問題を回避するためにデータ型が正しく設定されていること、および各プロンプトでセル参照が正確に選択されていることをご確認ください。マクロを実行する前に必ず作業内容を保存し、意図しないデータの変更を防ぎましょう。

まとめると、Excel では従来の数式から強力な Office 365 関数、インタラクティブ分析に最適なピボットテーブル、高度な自動化を実現する VBA マクロまで、動的トップ N リストを生成・維持する多彩な手法がサポートされています。ご自身のワークフローとデータ規模に最も適した方法をぜひ選んでください。数式はほとんどの手動分析に有効で、Office 365 関数は最大限の簡便性と機能性を提供し、ピボットテーブルは迅速かつ柔軟な集計に優れ、VBA は大規模で繰り返し発生するランキングタスクの自動化に特に威力を発揮します。常に数式やコードの整合性を確認し、プロジェクトの進展に伴うデータ構造の変更に応じてセル参照を適宜調整してください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。