我現在想像我附件中這樣排序。按照從小到大的順序，橫向排序，也就是按行排序可是我只能一行一行排，不能一起都排好。想了半天沒頭腦，只好上來問了。請各位高人們務必指導?。。。?！

熱心網友

其實zhngpyu 的回答很正確，只是可能不小心加了一個不需要的參數，去掉最后的那個data的參數，就可以正確運行了。這個問題關鍵是sort方法中參數Orientation:=xlLeftToRight（從左到右）附件是下載zhngpyu ，只是刪掉sort中最后一個參數而已。

熱心網友

拉開

熱心網友

那用VBA編程吧，按“Alt+F8”進入“宏”，隨便輸入個名字作為宏名，點“創建”，然后把以下代碼粘貼到函數體內，運行即可。要注意的是排序區域內不要有合并的單元格。Dim i As IntegerFor i = 2 To 19 Rows(i)。Select Selection。Sort Key1:=Cells(i, 1),Order1:=xlAscending,Header:=xlGuess, OrderCustom:=1,MatchCase:=False,Orientation:=xlLeftToRight,SortMethod :=xlPinYin, DataOption1:=xlSortNormal Next i這段代碼的意思是從第2行到第19行,每行做一次行排序,操作時不用選取排序區域,你的說明內容是合并了單元格的,所以出錯,把合并的單元格取消或刪除就行了。我試過了，完全是可用的。干脆我寫好得了,按"Alt+F8",執行宏func1就行了。你再試試吧，我在我機器上就是這樣做的，很正常。至于你運行時出錯是什么原因，那我也不知道了。也許是版本原因吧，如果你執行我附件中的宏也出錯的話，那就是excel版本有參數不兼容，我用的是excel2003。

熱心網友

表已看過，這樣排：先用光標將要排序的行拉黑選定參與排序的區域，再“菜單-數據-排序”，出現問話框“排序警告”，選“以當前選定區域排序”就可以了。

熱心網友

菜單：數據－排序－選項－點選“按行排序”即可但是這種排序不可能象樓主說的那樣，一次性每行都按從小到大分別排出來。只能是一行排一次。要達到樓主的要求，應該用函數公式來作了