A列如果有一组数字应如何用EXCEL VB代码排列（升序、降序）

Question

如题所述

Answer 1

请参考如下代码：

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

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

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

在宏编辑器中，点中代码中的 Selection.Sort 再按 F1，即可看到Excel VBA关于排序的完整详细的帮助说明与举例.

GoodLuck!本回答被提问者采纳