Excel 順位を自動的に並べたい

質問

ポイントランキングで結果を出した数値によって1位からとキレイに並べたいのです。
「並べ替え」といった機能があることは分かっていますが、自動的に並べるようにしたいです。関数か、もしくはマクロがあれば教えてください。宜しくお願いします。

CセルのランキングをVBAで出しています。
Sub test()
Dim c As Range
For Each c In Range("C2:C9")
c.Offset(0, 1).Value = Application.WorksheetFunction.Rank(c.Value, Range("C2:C9"))
Next c
End Sub

回答No.1

kkkkkm · ベストアンサー

画像のEFG列は、ABC列を並び替えした結果の例で実際はABC列を並び替えたいという事でしたらTestで。
ABCはそのままでEFGに結果を出したい場合は、Test2で。

Sub Test()
Range("A1:C9").Sort _
Key1:=Range("C1"), Order1:=xlAscending, _
Header:=xlYes
End Sub

Sub Test2()
Range("E1").Resize(9, 3).Value = Range("A1").Resize(9, 3).Value
Range("E1:G9").Sort _
Key1:=Range("G1"), Order1:=xlAscending, _
Header:=xlYes
End Sub

お礼

ありがとうございます。
検索でソートを使ったサンプルをいくつかやってみましたけど、うまくいきませんでした。
シンプルで参考になります。