ExcelVBA怎么排序?

假设你的工作表名为“表”，采用如下代码
Sub 排序()
With ActiveWorkbook.Worksheets("表").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal '降序排列
.SetRange Worksheets("表").Range("A2:C13")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
升序为Order:=xlAscending

Excel还有强大的图形功能。从1993年，Excel就开始支持Visual Basic for Applications（VBA）

Sub 排序()
r = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:D" & r).Sort key1:=Range("A2"),order1:=1,Header:=xlNo
End Sub

Excel如何排序？很简单，让我来教会你！