返回列表 上一主題 發帖

[發問] 左右有遞增排序及遞增排序問題

[發問] 左右有遞增排序及遞增排序問題

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

5000.rar (207.49 KB)

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 1# jeff5424


   
EX1.GIF
2011-8-13 16:07

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題