■∵用VBA代码对工作表上的数据排序

[树猫]

Excel的一个工作表上的数据，
如何在宏里利用VBA代码 对其进行排序。
注意：是利用代码排序。大虾们帮忙啊！

[ChinaOBS]

'A1：A9升序
Sub Macro1()
Range("A1:A9").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
'A1：A9降序
Sub Macro2()
Range("A1:A9").Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

[树猫]

能详细解释一下吗？
例如数据区域是 A2:K100.现在是按照D列降序排列。 怎么办？

[ChinaOBS]

'升序排列
Sub Macro1()
Range("A2:K100").Select
Selection.Sort Key1:=Range("K2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
'降序排列
Sub Macro1()
Range("A2:K100").Select
Selection.Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

[seawolflover]

录个宏即可