Excelでデータを逆順にランク付けするにはどうすればよいですか？

Author Sun Last modified 2025-08-26

Excelでは、一般的な =RANK(セル, 範囲) 数式を使用すると、最大の値が1位としてランク付けされ、最小の値が最も低いランク番号として割り当てられます。しかし、最小の値にトップランクを与え、最大の値に最後のランクを与える必要がある場合があります。これは、例えばレースタイム、コスト、またはエラーカウントなど、より低い値が優れたパフォーマンスを示すデータを分析する際に特に役立ちます。以下のスクリーンショットで説明されています。
A screenshot showing data ranked in reverse order in Excel

逆順にデータをランク付け | VBAコード: 逆順のランクを自動的に割り当てる

逆順にデータをランク付け

Excelで逆順のランク付けを行うには、標準的な RANK 数式を少し変更して、追加の引数を指定します。この方法により、デフォルトの順序ではなく、最小値から最大値へと簡単にデータをランク付けできます。

逆順ランク結果を表示したい空白セルを選択します。データ範囲がB2からB10にある場合、最初の隣接するセル（例：C2）に次の数式を入力します。

=RANK(B2,$B$2:$B$10,1)

数式を入力した後、 Enterキーを押します。列内の他のセルにも数式を適用するには、フィルハンドルを使用します。数式を入力したセル（C2）の右下隅にマウスを置き、カーソルがプラス記号に変わったら、データの隣にある範囲の残りのセル（この例ではC10まで）にドラッグします。
A screenshot of reverse rank formula applied in Excel

データ範囲が異なる場合は、数式内のセル参照を実際のデータに合わせて調整してください。重複する値がある場合、RANK関数はそれらの値に同じランクを割り当て、後続のランクはスキップされます（例：2つの項目が2位で並んだ場合、次のランクは4になります）。

逆順ランク付けは、最小の値や最速の時間を強調したい場合に特に有用であり、タイ（同順位）が許容されるか予想されるデータセットでうまく機能します。

VBAコード: 逆順のランクを自動的に割り当てる

大規模なデータセットや、データが頻繁に更新され、より自動化されたソリューションが必要なシナリオでは、VBAコードを使用して逆順のランクを迅速かつ効率的に割り当てることができます。この方法は、少量のプログラミングに慣れ、繰り返しの手動操作を排除したいユーザーに理想的です。

1. 開発ツール>Visual BasicをクリックしてVBAエディタを開きます。Visual Basic for Applicationsウィンドウで、挿入>モジュールをクリックし、次のコードをモジュールペインに貼り付けます。

Sub AssignReverseRank()
    Dim dataRange As Range
    Dim outputRange As Range
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
    Dim arr As Variant
    Dim sortedArr As Variant
    Dim rankArr() As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
    If dataRange Is Nothing Then Exit Sub
    
    Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
    If outputRange Is Nothing Then Exit Sub
    
    arr = dataRange.Value
    ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
    sortedArr = arr
    
    ' Sort the array in ascending order
    For i = 1 To UBound(sortedArr, 1) - 1
        For j = i + 1 To UBound(sortedArr, 1)
            If sortedArr(i, 1) > sortedArr(j, 1) Then
                temp = sortedArr(i, 1)
                sortedArr(i, 1) = sortedArr(j, 1)
                sortedArr(j, 1) = temp
            End If
        Next j
    Next i
    
    ' Assign reverse ranks
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(sortedArr, 1)
            If arr(i, 1) = sortedArr(j, 1) Then
                rankArr(i, 1) = j
                Exit For
            End If
        Next j
    Next i
    
    outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub

2マクロを実行するには、実行ボタンをクリックするか、 F5キーを押します。データ範囲（逆順にランク付けしたい単一の列を選択）を選択するよう求められ、次にランキング結果を出力したい最初のセルを選択します。各選択後にOKをクリックします。

このマクロは、データを昇順で並べ替え、それに応じて逆順のランクを割り当て、最小の値をランク1とします。一度に数千件のエントリをランク付けしたり、定期的に更新されるレポート内のランキングを自動化するのに特に便利です。

このマクロを使用する際は、データが連続しており、数値のみが含まれていることを確認してください。非数値または空白のセルがあると、誤った出力が生じる可能性があるため、事前にデータをクリーニングするのが最善です。また、マクロを実行する前にワークブックを保存しておくと、意図しない変更を防ぐ良い予防策となります。

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

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