なぜRANK関数をVBAで扱うことが重要なのか
実務において、売上ランキングや成績順位の算出は非常に頻繁に行われる業務です。Excelの関数としてRANK関数（現在はRANK.EQ関数が推奨）を使うのも手軽ですが、データ量が数万件を超えたり、定期的に順位付けの基準を変えてレポートを出力したりする場合、関数をセルに埋め込むよりもVBAで自動処理する方がはるかに効率的かつ安全です。今回は、RANK関数の概念をVBAコードに落とし込み、柔軟に順位を算出するスキルを身につけましょう。
基礎知識：VBAで「順位」を算出する仕組み
VBAには、ワークシート関数の「RANK.EQ」を呼び出す方法と、配列を用いて自前で計算する方法の2通りがあります。実務では、まず前者の「WorksheetFunctionオブジェクト」を使う方法を習得するのが近道です。
ここで重要になるのが「絶対参照」の考え方です。関数をオートフィルする際、参照範囲がずれないように固定する操作（$C$5:$C$14）を、VBAではRangeオブジェクトの指定としてどう表現するか、がポイントとなります。
実装のポイント
VBAで順位を計算する際は、以下の手順を踏みます。
1. 順位を出したい範囲を特定する。
2. ワークシート関数のRANK.EQを呼び出す。
3. 計算結果をセルに書き込む。
特に注意すべきは、「昇順（小さい順）」と「降順（大きい順）」の切り替えです。RANK.EQ関数の第3引数に「1」を指定すれば昇順に、省略または「0」を指定すれば降順になります。
サンプルプログラム
以下のコードは、C列にある売上データに対して、D列にランキングを出力する実用的なコードです。
Sub CalculateRanking()
Dim ws As Worksheet
Set ws = ActiveSheet
‘ データ範囲の開始行と終了行を設定
Dim startRow As Long, endRow As Long
startRow = 5
endRow = 14
‘ 範囲を文字列として定義（絶対参照の代わり）
Dim rangeAddress As String
rangeAddress = “$C$” & startRow & “:$C$” & endRow
Dim i As Long
‘ 5行目から14行目まで順位を算出
For i = startRow To endRow
‘ WorksheetFunctionを使ってRANK.EQを実行
‘ 第3引数を省略すると「降順」、1にすると「昇順」
ws.Cells(i, 4).Value = Application.WorksheetFunction.Rank_Eq(ws.Cells(i, 3), ws.Range(rangeAddress), 0)
Next i
MsgBox “順位の計算が完了しました。”
End Sub
応用・注意点
実務で最も陥りやすいバグは「データ範囲の指定ミス」です。特にデータ行数が変動する場合、固定値（14など）で指定するとエラーや誤った順位の原因になります。
現場での回避策：
範囲を固定せず、最終行を動的に取得するテクニックを併用しましょう。
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row
このように、データ末尾を自動取得するように書き換えるだけで、どんなデータ量にも対応できる「プロ仕様」のコードになります。また、同順位が多発するデータセットでは、RANK.EQ関数の挙動が業務要件と合致しているか、必ず事前のテストデータで確認してください。
