- 帖子
- 12
- 主題
- 0
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2010-5-23
- 最後登錄
- 2020-11-16
|
本帖最後由 wang 於 2012-2-15 01:27 編輯
橫向排序
資料>排序>選項>方向>循列排序
R = 1
Do Until Cells(R, 1) = ""
Range(Cells(R, 1), Cells(R, 1).End(xlToRight)).Select
Selection.SORT Key1:=Cells(R, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
R = R + 1
Loop
Cells(R, 1).Select |
|
發表於 2012-2-15 00:56
| 