標題: [發問] 左右有遞增排序及遞增排序問題 [打印本頁]

---

作者: jeff5424    時間: 2011-8-12 22:35     標題: 左右有遞增排序及遞增排序問題

在excel功能有上下有遞增排序及遞增排序
是否有功能有左右有遞增排序及遞增排序
我有5000組號碼想要左右遞增排序
如附件
請大大協助…謝謝

---

作者: Hsieh    時間: 2011-8-12 22:59

回復 1# jeff5424

1. Sub EX()
   
2. Application.ScreenUpdating = False
   
3. Dim A As Range
   
4. For Each A In [A2:A5001]
   
5.    Range(A.Offset(, 1), A.Offset(, 1).End(xlToRight)).Sort key1:=A.Offset(, 1), Header:=xlNo, Orientation:=xlLeftToRight
   
6. Next
   
7. Application.ScreenUpdating = True
   
8. End Sub

複製代碼

---

作者: GBKEE    時間: 2011-8-13 16:07

回復 1# jeff5424


    [attach]7409[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)