如何让excel中每一列都各自排序

1.在“工具”--“宏”--“Visual Basic 编辑器”

 

2.在打开的页面上，“插入”--“模块”

 

3.在模块中键入以下代码

 

sub colsort

 

Set ss = Selection

 

For i = 1 To ss.Columns.Count

 

ss.Columns(i).Sort Key1:=ss.Columns(i), Order1:=xlAscending, Header:=xlNo, _

 

Orientation:=xlTopToBottom

 

Next

 

End Sub

 

如图

4.单击“文件”--“关闭并返回到 Microsoft Excel”

 

5.选择你要排序的所有列

 

6.“工具”--“宏”--单击下级菜单中的“宏”。选择你刚才建立的宏（如上图“模块”代码框中该宏名为”colsort“），然后再单击运行即可。