【急，Excel每行如何能自动排序？】

liwen

先按要求录制宏再更改：
Sub Macro1()
For i = 1 To Range("A65535").End(xlUp).Row
    Range("A" & i & ":E" & i).Sort Key1:=Range("A" & i), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
Next
End Sub

liwen

大致看过你的数据，本身好象就己经是按你所说的规律排好的。
上面那段宏你直接放到模块中运行就可以，如果你不会就先学一下再用吧！