金叶丝棉木:excel各列单独排序

8 7 2 3 59 6 5 9 75 8 4 6 32 3 8 2 4到2 3 2 2 35 6 4 3 48 7 5 6 59 8 8 9 7要一次搞定,不要一列一列的搞分不够可再加

要一次搞定,单靠Excel的内功能排序, 是不可以的。只可用VBAsub colsortSet ss = SelectionFor i = 1 To ss.Columns.Countss.Columns(i).Sort Key1:=ss.Columns(i), Order1:=xlAscending, Header:=xlNo, _Orientation:=xlTopToBottomNextEnd Sub刚才测试250列 500行, 用了 0.14秒(vba timer显示)
 
注意：如果需要按降序排序，可以把Order1:=xlAscending改成Order1:=xlDescending

excel各列单独排序 单独打印Excel图表 Excel数据排序 EXCEL VBA 排序 EXCEL随机排序 Excel表格排序方法 Excel排序技巧汇总 高效办公Excel排序 方法 Excel函数排序与筛选 高效办Excel排序方法 Excel表格排序方法汇总 Excel数据排序功能集锦 高效办公Excel排序方法 Excel动画教程：Excel数据排序操作 Excel排序技巧两则（按行排序） Excel动画教程：Excel中行列隐藏操作 Excel动画教程：Excel标题跨列居中 Excel 两列比较实例 Excel：成绩分析表的特殊排序 Excel动画图解：按笔画排序姓名 excel表格排序方法大汇总 EXCEL VBA 排序_小糊涂 妙招让你单独打印Excel指定区域 妙招让你单独打印Excel指定区域