エクセル、同じ数字が入らない。

質問

よろしくお願いします
Ｓランク＝100
Ａランク＞90
Ｂランク＞70
Ｃランク＝＜70　のＩＦ関数

Ａさん　80　90　Ａ　　3番
Ｂさん　20　100　Ｓ　1番
Ｃさん　30　90　Ａ　　4番
Ｄさん　40　100　Ｓ　2番
Ｅさん　50　90　Ａ　　5番　

Ｓは1名　Ａは2名　Ｂは10名としたいのですが

Ａさん　　90　Ａ　　3番
Ｂさん　　100　Ｓ　1番
Ｃさん　　90　Ｂ　　4番
Ｄさん　　100　Ａ　2番
Ｅさん　　90　Ｂ　　5番　
どのようにしたらいいか分かりません。
よろしくお願いします。

回答No.4

mshr1962 · ベストアンサー

C列が得点?として計算しています。
上の方は
ランク=IF(C1=100,"S",IF(C1>90,"A",IF(C1>70,"B","C")))
ただし90はBランクですね。
順位=SUMPRODUCT(($C$1:$C$100+1-ROW($C$1:$C$100)/100>C1+1-ROW()/100)*1)+1
（範囲は使用している物に合わせてください。）

下の方は
順位は上と同じで
ランク=MID("SAABBBBBBBBBBC",MIN(順位,14),1)
順位でランクを振り分ける。

お礼

すばらしくできちゃいました^^
ありがとうございました。。

回答No.6

imogasi

＃５です。関数を使ってやって見ました。作業列（Ｃ列）を１列使います。
（サンプルデータ）Ａ１：Ｄ１３
（Ａ列）（Ｂ列）　（Ｃ列）　（Ｄ列）
Ａさん 90 90.1 B
Ｂさん 100 100.1 A
Ｃさん 90 90.2 B
Ｄさん 100 100.2 S
Ｅさん 90 90.3 B
Fさん 95 95.1 A
Gさん 60 60.1 B
Hさん 70 70.1 B
Iさん 80 80.1 B
Jさん 75 75.1 B
Lさん 65 65.1 B
Kさん 85 85.1 B
Mさん 72 72.1 B
（ＶＬＯＯＫＵＰ用の表）
Ｅ１：Ｆ３
0 S
2 A
4 B
４以上（４，５、・・１３）はＢ、２以上（２，３）はＡ、０以上（１）はＳを意味している表です。
段階から値を求める、ＶＬＯＯＫＵＰ関数のＴＲＵＥ型で使う表です。
（関数式）
Ｃ１に=B1+COUNTIF($B$1:$B1,B1)/10と入れる。
同じ点数は９人以下であると仮定し、わざと同点を違う
小数点付きの数値を与えている。
Ｃ１をＣ２以下の下方向に複写する。
Ｄ１に=VLOOKUP(RANK(C1,$C$1:$C$13),$E$1:$F$3,2,TRUE)といれ、下方向に
複写する。
（結果）
結果は上記Ｄ列の通りになる。
Ｂ列は、正整数のデータであると仮定が必要。

回答No.5

imogasi

普通の関数式では複雑にならざるを得ないようです。
そこでユーザー関数を作ってみました。
（データ）Ａ１：Ｂ１３に
（Ａ列）（Ｂ列）　（Ｃ列）＝関数式の結果
Ａさん 90 B
Ｂさん 100 A
Ｃさん 90 B
Ｄさん 100 S
Ｅさん 90 B
Fさん 95 A
Gさん 60 B
Hさん 70 B
Iさん 80 B
Jさん 75 B
Lさん 65 B
Kさん 85 B
Mさん 72 B
（関数式）
Ｃ１に=rankx($B$1:$B$13,B1,1,2,10)と入れる。
絶対番地部分に注意。
Ｃ２からＣ１３まで複写する。
結果は上記の通り。
同点の場合どちらが上ランクになるかは、問わない。
（コード）
Function rankx(a, b, n1, n2, n3)
Dim d(1000), r(1000)
rw = b.Row
Dim cl As Range
i = 0
For Each cl In a
i = i + 1
d(i) = cl
r(i) = i
Next
For j = 1 To i
For k = j To i
If d(j) > d(k) Then GoTo p01
w = d(j)
d(j) = d(k)
d(k) = w
w = r(j)
r(j) = r(k)
r(k) = w
p01:
Next k
Next j
For k = 1 To i
If r(k) = rw Then
Select Case k
Case Is <= n1
rankx = "S"
Case Is <= n1 + n2
rankx = "A"
Case Else
rankx = "B"
End Select
End If
Next k
End Function
上記を
ツール－マクロ－ＶＢＥで出る画面において
メニュの挿入ー標準モジュールで出る画面に先に、上記をコピーして、貼りつけておくこと。
やっていることは、指定列データを大ー＞小の順に並べて
順位をつけて、指定した人数分の区切りで順に、Ｓ、Ａ、Ｂを振っている。この点ではやっていることは常識的に思いつくことかと。

回答No.3

s_yoshi_6

もし同じ点数の場合、リストの上の方にある人が上位になる、ということでよければ、点数からそのセルの行番号に応じた十分小さい数（例えばエクセルの行数の最大値は65536なので、小数第１位を四捨五入しても１にならない程度で「行番号÷1000000」とか。ただし点数が小数もありうるのであれば、もっと小さくしなければなりません）を点数から引いてやって、その順番を使うという方法ではいかがでしょうか。

Ａ列から右に、名前、点数、作業列、ランク、順番（質問に書かれていますので、順番の列も作成するものとします）として２行目から２１行目まで入力していくものとします。
Ｃ２に　=B2-ROW()/100000
Ｄ２に　=IF(OR(B2="",B2<0,B2>100),"",IF(AND(B2=100,E2=1),"A",IF(AND(B2>90,E2<=3),"B",IF(AND(B2>70,E2<=13),"C","D"))))
Ｅ２に　=RANK(C2,$C$2:$C$21)　かつ　右クリック→セルの書式設定で、ユーザー定義の種類に「0"番"」と入力

として以下コピーとします。

Ｃ列は列の非表示で隠すか、もしＢ列の点数が直接入力でなく、どこか別のセルの参照であって、かつ点数の数値を他の計算に使われないのであれば、参照セル（B2）をそのセルに代えてＣ列をそのまま点数欄にされてもよいと思います。（セルの書式は「数値」の小数点以下の桁数を０とするなどすれば、問題ないと思います）

またＥ列（順番の列）を実際には作成しないのであれば、Ｄ２の式のＥ２のところに　RANK(C2,$C$2:$C$21)を代入して、
=IF(OR(B2="",B2<0,B2>100),"",IF(AND(B2=100,RANK(C2,$C$2:$C$21)=1),"A",IF(AND(B2>90,RANK(C2,$C$2:$C$21)<=3),"B",IF(AND(B2>70,RANK(C2,$C$2:$C$21)<=13),"C","D"))))
とされるとよいと思います。

Ｐ.Ｓ.
質問の

Ａさん　80　90　Ａ　　3番
Ｂさん　20　100　Ｓ　1番
Ｃさん　30　90　Ａ　　4番
Ｄさん　40　100　Ｓ　2番
Ｅさん　50　90　Ａ　　5番

は

Ａさん　90　Ａ　　3番
Ｂさん　100　Ｓ　1番
Ｃさん　90　Ａ　　3番
Ｄさん　100　Ｓ　1番
Ｅさん　90　Ａ　　3番

のことではないかと解釈して回答しました。

回答No.2

hinebot

まず、
Ａさん　80　90　Ａ　　3番
Ｂさん　20　100　Ｓ　1番
Ｃさん　30　90　Ａ　　4番
Ｄさん　40　100　Ｓ　2番
Ｅさん　50　90　Ａ　　5番　

左から2列目の数字（80,20,30,40,50）の意味を説明してください。
最後の順位付けの法則（基準）がわかりません。
補足お願いします。

補足

申し訳ないです・
80.20.30.40.50はコードナンバーです。
順位は90、100、90、100、90で
同じ数字に関しては、上から順番ずつとしてあります。
説明不足で申し訳ありません。。

回答No.1

peugeot307

100点(?)でも2番だとAってことですか？
順番は先に振ってあるなら、Sの条件を
点数=100点 and 順番=1番でどうでしょう？
もし順番を後から振るとしたら・・・
同じ100点の人の順位はどうやって決めるのですか？