関数の組み方を教えてください

質問

検索してもなかなかみつからなかったので教えてください。

１チーム６～８人でそれが５チームあります。
それぞれのチームの中で得点上位者を３人ずつをぬき出し、その３人の得点の合計が多いチームから順位づけしたいと思っています。

アクセスが不慣れなためできればエクセルの関数でやりたいのですが、どうネストさせていけばいいかよくわかりません。

ぜひとも宜しくお願いします。

回答No.2

suz83238 · ベストアンサー

>得点上位者を３人ずつをぬき出し、その３人の得点の合計
これは、B1～B8まで得点があったとして
=LARGE(B1:B8,1)+LARGE(B1:B8,2)+LARGE(B1:B8,3)
で求める。これをそれぞれチーム全部で求めておく。

そして
121 Aチーム
222 Bチーム
以下略

を作っておいて
=VLOOKUP(LARGE(A11:A18,1),A11:B18,2,0)
で一番のチーム名が出る。

お礼

なるほどー。助かりました。ほんとにありがとうございました。

回答No.3

imogasi

配列数式、ＳＵＭＰＲＯＤＵＣＴなどやってみたが、うまくいかない
ーー
ＶＢＡなら素直なロジックで出来る。
例データ
グループ 計数
g1 12
g2 23
g1 21
g3 14
g3 31
g1 21
g2 14
g1 22
g4 10
g1 20
g4 18
g3 16
g3 13
g4 22
g2 11
g2 19
g3 17
g4 14
g2 14
g4 24
Ａ列昇順＋Ｂ列降順でソート
ＶＢＡでも簡単に出来るが省略。マクロの記録をとっても判る。
Ｅ列　　Ｆ列
グループ 計数
g1 22
g1 21
g1 21
g1 20
g1 12
g2 23
g2 19
g2 14
g2 14
g2 11
g3 31
g3 17
g3 16
g3 14
g3 13
g4 24
g4 22
g4 18
g4 14
g4 10
ーーー
標準モジュールに
Sub test01()
d = Range("E65536").End(xlUp).Row '最下行補足
'MsgBox d
k = 2 '書き出しは２行目から。M,N列におこなう
m = Cells(2, "E") '前行のキー＝グループ名
t = Cells(2, "F")
r = 1 '各グループ内での現在行の順位数
'--
For i = 3 To d 'データ第2行から開始
s = Cells(i, "E") 'キー項目＝グループ名
If s = m Then 'グループ名について前行と同じなら
r = r + 1 '順位数を１上げる
If r < 4 Then '３位までは足しこむ
t = t + Cells(i, "F") '計数を足しこみ
Else
End If
Else
'--結果書き出し　Ｍ，Ｎ列
Cells(k, "M") = m '１行前のグループ名
Cells(k, "N") = t / 3 'Ｔｏｐ３人平均
k = k + 1 '次の書き出し1行下への準備
'--グループ変更で切り替え
r = 1
t = Cells(i, "F")
m = s
End If
Next i
'後じまい
Cells(k, "M") = m
Cells(k, "N") = t / 3 'Ｔｏｐ３人平均
End Sub
ーーー
結果
Ｍ列　　Ｎ列
g1 21.33333333
g2 18.66666667
g3 21.33333333
g4 21.33333333
＝＝＝
＞チームから順位づけしたいと思っています
Ｎ列でソート。

お礼

お礼が遅くなり申し訳ございませんでした。
マクロ勉強してみます。
詳しい説明ありがとうございました。

回答No.1

jo-zen

LARGE(数値,範囲,順位）関数を使って１番目、２番目、３番目の得点を取り出し合計してそれを使ってVLOOKUP関数などでチーム名を取り出してあげればよいかと思います。
なお、LARGE関数で順位を1,2,3としたとき同点者がいても、例えば1→10、2→10、3→9のように取り出されます。

お礼

ありがとうございました。
わかりやすかったです。