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

公開日：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)

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

このサイトがお役に立ちましたら「シェア」「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.