遞增排序

遞增排序：
Sub EX()
Application.ScreenUpdating = False
Dim A As Range
For Each A In [A2:A5001]
   Range(A.Offset(, 1), A.Offset(, 1).End(xlToRight)).Sort key1:=A.Offset(, 1), Header:=xlNo, Orientation:=xlLeftToRight
Next
Application.ScreenUpdating = True
End Sub