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

ExcelマクロVBAとエクセル関数についての私的雑感
公開日: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分割。


エクセル Excel 数式 問題
https://twitter.com/yamaoka_ss/status/1693507718446039507


引用ツイートでの回答

出題者としての回答

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

エクセル Excel 数式 問題


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

エクセル Excel 数式 問題


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

エクセル Excel 数式 問題

これを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)))


エクセル Excel 数式 問題


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

エクセル Excel 数式 問題


これも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)


エクセル Excel 数式 問題




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

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


新着記事NEW ・・・新着記事一覧を見る

テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。|エクセル雑感(2023-12-28)
VBAでクリップボードへ文字列を送信・取得する3つの方法|VBA技術解説(2023-12-07)
難しい数式とは何か?|エクセル雑感(2023-12-07)
スピらない スピル数式 スピらせる|エクセル雑感(2023-12-06)
イータ縮小ラムダ(eta reduced lambda)|エクセル入門(2023-11-20)


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

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




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


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



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