execl数据表排序问题

如何将exexl数据表多列数据独立按列排序，见例图：数据很多，不可能用按钮一列一列处理

同时按Alt和F11，右键点左上窗口中的Thisworkbook，插入，模块，在右边新出来的窗口粘贴一下代码:

Sub test()
For i = 1 To 30
Columns(i).Sort Key1:=Cells(1, i), Order1:=xlAscending, Header:=xlGuess
Next i
End Sub

1 To 30表示从第1列到第30列，如果你的数据时第3列到第12列，就改成 3 to 12

然后按F5运行此宏，1秒搞定。

其实，你每次选中1列，按菜单上的排序按钮，也费不了多少事。