- 帖子
- 18
- 主題
- 4
- 精華
- 0
- 積分
- 26
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 中國
- 註冊時間
- 2011-6-19
- 最後登錄
- 2021-4-15
|
回復 2# 藍天麗池
不知行不行，你試一下 :
Private Sub Worksheet_Change(ByVal Target As Range)
rs = Range("A1").End(xlDown).Row
Set Rng = Range("A1:C" & rs)
Rng.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes, Orientation:=xlTopToBottom
End Sub |
|
發表於 2014-3-1 11:25
| 