ランクによりポイントを付ける（同順位はポイントを分割）

公開日：2023-08-22　最終更新日：2026-01-15

ランクによりポイントを付ける（同順位はポイントを分割）

ツイッターで出題したエクセル数式問題です。

点数一覧の順位に応じたポイントを付けます。
同順位がある場合は、同順位でポイントを分割します。

出題ツイート

【エクセル問題】
A列の点数の順位に応じたポイントをB列に付けます。
同順位の場合は、そのポイント合計を同順位で分割します。
※添付では2位（15点）が3個なので、2位3位のポイント合計15（10+5）を3分割します。
※1位が3個あれば30（15+10+5）を3分割します。3位が2個なら5ポイントを2分割。

https://twitter.com/yamaoka_ss/status/1693507718446039507

引用ツイートでの回答

引用ツイート

出題者としての回答

まずはランクを付けます。
同順位がある場合は最上位を返すRANK.EQ関数を使います。
=RANK.EQ(A2:A11,A2:A11)

同順位がある場合は、ポイントを分け合うので、同順位の件数を出しておきます。
この時、数式で求めたC列のランクではなく、もともとのA列の点数で件数を取得します。
これは後々でLETで数式をまとめた時に、COUNTIFは引数に配列を指定できないので、元のセル範囲を使いたいからです。
=COUNTIF(A2:A11,A2:A11)

ここまで出来たら、後はF:G列のポイント表を使って割り振ります。
この数式はいろいろと工夫出来そうです。
まずは私が最初に考えた数式です。
=SUM(OFFSET($G$1,C2,0,D2))/D2

これをLETとLAMBDAを使って1セルでスピルさせます。
=LET(in,A2:A11,
r,RANK.EQ(in,in),
c,COUNTIF(in,in),
MAP(r,c,LAMBDA(x,y,SUM(OFFSET(G1,x,0,y))/y)))

続いて、お寄せいただいた数式から、今回のお題に良さそうな数式を作成しました。
=SUMIFS(G2:G4,F2:F4,">="&C2#,F2:F4,"<"&C2#+D2#)/D2#

これもLETでまとめて1セルでスピルさせます。
=LET(in,A2:A11,
r,RANK.EQ(in,in),
c,COUNTIF(in,in),
SUMIFS(G2:G4,F2:F4,">="&r,F2:F4,"<"&r+c)/c)

同じテーマ「ツイッター出題回答」の記事

脱字メーカー（文字列から1文字削除）
リーグ表に対戦番号を振る
 数列内の連続偶数のみ順序を入れ替える
ランクによりポイントを付ける（同順位はポイントを分割）
記号を繰り返してグラフ作成（10単位で折り返す）
Excel関数の引数を省略した場合について
 日時データから日付ごとの集計（UNIQUE,SUMIFS,GROUPBY）
シートコピー後のアクティブシートは何か
 ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
 列全体を指定する時のRangeとColumnsの違い

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
エクセル全般
ツイッター出題回答
ランクによりポイントを付ける（同順位はポイントを分割）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

ツイッター出題回答
ランクによりポイントを付ける（同順位はポイントを分割）