我现在想像我附件中这样排序。按照从小到大的顺序，横向排序，也就是按行排序可是我只能一行一行排，不能一起都排好。想了半天没头脑，只好上来问了。请各位高人们务必指导啊！！！！
热心网友
其实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。
热心网友
表已看过，这样排：先用光标将要排序的行拉黑选定参与排序的区域，再“菜单-数据-排序”，出现问话框“排序警告”，选“以当前选定区域排序”就可以了。
热心网友
菜单：数据－排序－选项－点选“按行排序”即可但是这种排序不可能象楼主说的那样，一次性每行都按从小到大分别排出来。只能是一行排一次。要达到楼主的要求，应该用函数公式来作了