Excel VBA 实用技巧 ( 轻轻的进阶编 ) – 如何进行数据排序

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 声明事项 ~

如各位想把以下本文章转贴 , 请记得要注明出处.

本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.

由于图片制作需时, 所以更新会比较慢.

存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.

数据排序嘛 ~ 你不可能没试过吧 ~ 那么要你用 Excel VBA 来进行数据排序又可以吗 ?

当然啰 ~ 怎么会不行呢 ?

==================

Range("B2:B8").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal

==================


==================

Range("B2:C8").Select
Range("C2").Activate
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal

==================

上面的两组程序代码是不同的 , 请细心的看一下 , 第一组所选择的范围是 B2 到 B8 , 主要条件是 B2 , 而排序方式是从小到大的递增 , 而第二组所选择的范围是 B2 到 C8 , 主要条件是 C2 , 排序方式也是递增 , 当你使用这个排序的程序代码时 , 记得要小心留意选择的范围有没有设定错误 , 主要条件也是 , 否则排错了我可不负责哦 ~ 哈哈 ~

另外最常用的除了递增还有递减 , 递减的方法是把程序代码当中的 xlAscending 改成 xlDescending , 这就可以了 ~