excel里面横向排序怎么排我现在想像
那用VBA编程吧,按“Alt+F8”进入“宏”,随便输入个名字作为宏名,点“创建”,然后把以下代码粘贴到函数体内,运行即可。要注意的是排序区域内不要有合并的单元格。
Dim i As Integer
For 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:=...全部
那用VBA编程吧,按“Alt+F8”进入“宏”,随便输入个名字作为宏名,点“创建”,然后把以下代码粘贴到函数体内,运行即可。要注意的是排序区域内不要有合并的单元格。
Dim i As Integer
For 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。
收起