エクセル　同順位の処理

Question

いつもお世話になっております。
　上位３名の合計点を求める時に、同順位（例：１位１名・２位１名・３位２名）が出た場合、３位者（同順位者）については１名のみの点数を計算したいのですがその方法がわかりません。よろしくお願いします。
　また、２位が２名の時は、１位と２位の３名の合計点の計算となります。

　順位はＲＡＮＫ関数を使用しています。

得点　順位　上位合計点
９８　　１
８０　　３
７６　　　　　　　　？
８２　　２
８０　　３

よろしくお願いします。

jindon · Accepted Answer

=LARGE(得点範囲,1)+LARGE(得点範囲,2)+LARGE(得点範囲,3)

で、常に上位三つの点数の和になります。

imaruya · Answer

A列　 B列　                      C列
９８　=rank(a1,$a$1:$a$5,false)  =sum($a$1:$a$3)
８０  =rank(a2,$a$1:$a$5,false)
７６  =略
８２  =略
８０  =略

として、順位計算をさせた後、a1～b5セルを選択してB列で昇順にソートをかければ順位番号如何に関わらず上位３名の合計点を計算できます。

mshr1962 · Answer

順位の計算は
=RANK($A1,$A$1:$A$5)+ROW()/100
(最後の100は人数に合わせて調整してください。)
上記の例だと
得点　順位　上位合計点
９８　　１.01
８０　　３.02
７６　　５.03
８２　　２.04
８０　　３.05
になります。
上位合計点は
=SUMPRODUCT((RANK(B1:B5,B$1:B$5)>=3)*(A1:A5))
順位は表示形式で小数点以下桁数が0にしてください。

imogasi · Answer

ユーザー関数を作るとすれば
ＶＢＥの標準モジュール画面に下記を貼りつけると良い。
Function rankx(a, x)
Dim cl As Range
Dim b(1000)
n = 0
For Each cl In a
n = n + 1
b(n) = cl
Next
'----
 For i = 1 To n
        For j = i + 1 To n
            If b(i) > b(j) Then
            Else
            w = b(i)
            b(i) = b(j)
            b(j) = w
            End If
        Next j
           
  Next i
'----
t = 0
For i = 1 To x
t = t + b(i)
Next i
rankx = t
End Function
骨子はソートをしただけのもの。
データ数１０００以下であること。以上の時はDim b(1000)
を増やすこと。
下位から数える時は、上記ソートの部分のコードを昇順向きに組替えないといけない。
シートで結果を出したいセルに
=rankx(A1:A10,4)のように関数を入力する。
Ａ１：Ａ１０はデータの入っているセル範囲、４は上位
４個を取る（４，５位同一データであればどちらが取られるかは偶然）ことを意味する。

SAKURAMYLOVE · Answer

同順がでる場合は、重み付けをして同順がでないようにします。
(1)仮に一行目から、Ａ列：No.、Ｂ列：得点、Ｃ列：重み付け得点（作業用）、Ｄ列：順位とします。（データ数は仮に１０とし、No.は１０まで記入）
(2)Ｃ２に=B2+0.5*A2/(MAX($A$2:$A$11))を入力して、１１行までコピー
(3)Ｄ２に=RANK(C2,$C$2:$C$11)として、１１行までコピー
(3)上位三位まで合計したいセルを=SUMIF(D2:D11,"<=3",B2:B11)
とします。

エクセル 同順位の処理

A列 B列 C列

順位の計算は

=LARGE(得点範囲,1)+LARGE(得点範囲,2)+LARGE(得点範囲,3)

ユーザー関数を作るとすれば

同順がでる場合は、重み付けをして同順がでないようにします。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセル　同順位の処理

A列　 B列　 C列