エクセル 同順位の処理

質問

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

　順位はＲＡＮＫ関数を使用しています。

得点　順位　上位合計点
９８　　１
８０　　３
７６　　　　　　　　？
８２　　２
８０　　３

よろしくお願いします。

回答No.3

jindon · ベストアンサー

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

で、常に上位三つの点数の和になります。

お礼

いろいろな方法があり、勉強になりました。ありがとうございました。一番簡単な方法のようです。

回答No.5

SAKURAMYLOVE

同順がでる場合は、重み付けをして同順がでないようにします。
(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)
とします。

お礼

いろいろな方法があり、勉強になりました。ありがとうございました。

回答No.4

imogasi

ユーザー関数を作るとすれば
ＶＢＥの標準モジュール画面に下記を貼りつけると良い。
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)のように関数を入力する。
Ａ１：Ａ１０はデータの入っているセル範囲、４は上位
４個を取る（４，５位同一データであればどちらが取られるかは偶然）ことを意味する。

お礼

いろいろな方法があり、勉強になりました。ありがとうございました。

回答No.2

mshr1962

順位の計算は
=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にしてください。

お礼

いろいろな方法があり、勉強になりました。ありがとうございました。

回答No.1

imaruya

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列で昇順にソートをかければ順位番号如何に関わらず上位３名の合計点を計算できます。

お礼

いろいろな方法があり、勉強になりました。ありがとうございました。