excel 給每列單獨排序

比如說有十列數據，要想一次使它們按每列單獨排序，就必須用到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”，這說明要先選中需要排序的列才能正確執行這個命令。