Excel で目的の出力が得られない

Question

V      A      R      K
12     4      9      12

1. これらの値を最大値から最小値まで表示する必要があります
2. 12、12、9、4のように
3. 次に、関連する成績を別のセルに表示します。

Answer 1

次のようなデータから始めます:

このマクロを実行すると:

Sub Zort()
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:D2"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:D2")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

次のような結果になります:

Answer 2

マクロを使用して並べ替えを実行したくない場合は、Gary's Student が提案しているように、並べ替えダイアログから次のように実行することもできます。