EXCEL中使用VB按列排序

1 选中需要排序的数据区域
    Range("A1:A10").Select   '

2 按A列升序排，有标题行
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortTextAsNumbers

3 按A列降序排，无标题行
    Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal