相关知识点：

要知道轮子是怎么造出来的，不要重复造轮子。

Range.Sort: VBA 内置的排序方法，15个参数。

（Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3）

1. Key1，主关键字最多三个；Order1，排序次序，默认升序xlAscending排列（xlDescending降序）。
2. Header：=xlYes,第一行作为标题栏不参与排序，xlNo代表无标题（默认），xlGuess自行判断。
3. MatchCase:=True代表区分大小写，False不区分；对应排序选项里的区分大小写功能。
4. Orientation按行排序xlSortRows或xllefttoright；按列排序xlSortColumns或xltoptobottom，对应排序选项里的“方向”。
5. SortMethod排序方法，文字内容，按照拼音（xlPinin，默认）还是按照笔画个数（xlStroke，有时排序选项中没有，就不好用）。
6. DataOption1 内容有文本格式的数字，是按照文本排序（xlsortNormal）还是数字排序（xlSortTextAsNumbers）,指定Key1关键字是否按照文本的顺序排序或者按照数字看待。
7. Type 在对Pivot Table（数据透视表）排序时使用，指定按照Lable还是Value进行排序。
8. OrderCustom 自定义排序规则

例1 排序应用

Sub mysortRange()

       Range(“B1:F1000”).Sort Key1:=Range(“B:B”),order1:=xlDescending

End Sub

例2文本排序应用(文本顺序请参照提高8)

Sub mysortRange2()

       Range(“B2:B5”).sort Key1:=Range(“b1”),_  ‘b1等同于b列

                     Dataoption:=xlsortNormal

End Sub