エクセルで順位付けする方法を教えて下さい

質問

エクセルで順位付けする方法を教えて下さい。
（A列)にクラス、（B列）に学籍番号、（C列）に得点が記載された1つの表があるとします。表にはクラス、学籍番号、得点、順に並んでいないところを、関数で順位付けしたいと考えています。表示結果として、クラス毎で得点の低い順に表示したいと考えています。

具体的には、
元々の表
（A列）　（B列)　（C列）
　A組　　　８　　　５７
　B組　　　４　　　４１
　A組　　　６　　　４２
　C組　　　３　　　８３
　C組　　　６　　　７３
　B組　　　２　　　８３

結果の表
（A列）　（B列)　（C列）
　A組　　　６　　　４２
　A組　　　８　　　５７
　B組　　　４　　　４１
　B組　　　２　　　８３
　C組　　　６　　　７３
　C組　　　３　　　８３

非常に煩雑な関数になりそうですが、お力をお貸しいただきたく宜しくお願いいたします。

回答No.11

layy

Sub RANKING()
Dim I As Long
Dim J As Long
Dim K As Long
Dim M As Long '算出行数

Dim XX As String
Dim YY As String
Dim ZZ As String

Dim X(10) As String 'Ａ列
Dim Y(10) As String 'Ｂ列
Dim Z(10) As String 'Ｃ列
Dim R(10) As String '順位

Range("A1").Select
M = 0
'とりあえず１０行までループ、値があるものはワークへ退避
For I = 1 To 10
If Len(Cells(I, 1)) > 0 Then
M = M + 1
X(M) = Cells(I, 1)
Y(M) = Cells(I, 2)
Z(M) = Cells(I, 3)
R(M) = 0
End If
Next I

'ワークへ退避したものを並べ替え（Ａ列違えば相互入替、Ｃ列違えば相互入替）
For I = 1 To M - 1
For J = I + 1 To M
If X(I) > X(J) Then
XX = X(J)
X(J) = X(I)
X(I) = XX

YY = Y(J)
Y(J) = Y(I)
Y(I) = YY

ZZ = Z(J)
Z(J) = Z(I)
Z(I) = ZZ
Else
If X(I) < X(J) Then
Else
If Z(I) > Z(J) Then
XX = X(J)
X(J) = X(I)
X(I) = XX

YY = Y(J)
Y(J) = Y(I)
Y(I) = YY

ZZ = Z(J)
Z(J) = Z(I)
Z(I) = ZZ
End If
End If
End If
Next J
Next I

'並べ替えしたものに順位付け
K = 1
R(1) = 1
For I = 1 To M
If X(I - 1) <> X(I) Then
K = 1
Else
If Z(I - 1) <> Z(I) Then
K = K + 1
End If
End If
R(I) = K
Next I
'順位付けしたものをセルへ貼り付け
For I = 1 To M
Cells(I, 5).Value = X(I)
Cells(I, 6).Value = Y(I)
Cells(I, 7).Value = Z(I)
Cells(I, 8).Value = R(I)
Next I
MsgBox ("終了")

End Sub
ざっと作成してみたので参考。
あとはデバッグして調整してください