excel 给每列单独排序
浏览数：23 /
时间：2015年06月08日
比如说有十列数据，要想一次使它们按每列单独排序，就必须用到vba。
首先说一下手动的一列一列排的简单方法：
?用鼠标单击第一列的列标签，然后再点数据标签页下的升序排序。
①出现排序提醒对话框，默认为扩展选定区域（表示每一列都按第一列排），改为以当前选定区域排序。
②然后对每一列都重复执行该操作
用宏命令来解决这个问题
?打开开发工具标签页下的宏命令
①随便输入名字再点创建
②复制粘贴以下命令：
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
然后保存时会提示你要重新保存文件为支持宏命令的格式（xlsm），按它说的做就行了
③注意vba语句中定义的“ss = Seletion”，这说明要先选中需要排序的列才能正确执行这个命令。
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
