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“），然后再单击运行即可。