Не получается желаемый результат в 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, вы можете сделать это следующим образом из диалогового окна сортировки: