
V A R K
12 4 9 12
- 我需要從最大值到最小值來查看這些值
- 像12,12,9,4
- 然後在單獨的儲存格中相應地顯示相關等級
答案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
將產生這個:
答案2
如果您不想使用巨集進行排序,正如 Gary 的學生所建議的那樣,您也可以從排序對話框中執行以下操作: