设,第一行是字段,即A1=“姓名”,B1=“成绩”,一下才是正式的记录。
代码如下:
Range("A1:B100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
执行后,A2就是成绩最高的学生名,B2就是最高的成绩