[讨论]倘使有多重列排序怎么办呢?

romli

在排序的时候只有三个关键字选,如果我有四个五个甚至更多该怎么办呢?

(不是在排定的区域中再选进行二次排序,能不能一下搞定?

用VBA能不能解决这个问题?

laoyebin

VBA应该能完成吧

或者你换2007，呵呵，能支持好多个排序的

northwolves

循环

Sub Macro1()
Dim i As Integer
For i = 20 To 1 Step -1
[a:t].Sort [a1].Offset(, 1, i - 1)
Next
End Sub

以上代码可实现将A:T列按a-->t的顺序升序排序

romli

首先感谢回复

不过,狼版,我未试验成功呢?

显示错误450:错误的参数号和无效的属性赋值

oobird

这是假设你的数据是a列到t列，每一列都要排序，你应该视自己的稳况修改。

wangyuanfu

我也急需知道，上面代码我也没有看明白，请大师仔细讲讲

oobird

Sub Macro1()
Dim i As Integer
For i = 20 To 1 Step -1
[a:t].Sort [a1].Offset(, i - 1)
Next
End Sub
多了一个1

romli

谢谢oobird!

very thanks,虾米时候才能达到你的水准,梦想ing...

820211639

{:soso_e100:}