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's Student 建议的那样,您也可以从排序对话框中这样做: