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

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

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

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

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

出題ツイート

【エクセル問題】
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関数の引数を省略した場合について
 シートコピー後のアクティブシートは何か
 ByRef引数の型が一致しません。
シートのActiveXチェックボックスの指定方法
 列全体を指定する時のRangeとColumnsの違い
 スピルのゴーストの範囲を選択するVBA

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.繰り返し処理（For Next)｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.条件分岐（IF）｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門

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

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

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

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