作者:Excel Home
Sub SortDemo()
Range('A:B').Sort key1:=[b1], order1:=xlDescending, Header:=xlYes
End Sub
Sub SortDemo()
Dim i&
For i = 5 To 2 Step -1
'一共4个排序字段,分别处于b1:e1单元格,从后向前遍历排序
Range('a:e').Sort key1:=Cells(1, i), order1:=xlDescending, Header:=xlYes
Next
End Sub
联系客服