怎样用VBA程序,实现多关键字(4个以上)排序

Long_III

你录制一个可以排序的宏看看，你原先写的有问题，看看下面的代码

Sub 排序() ENDROW = Range("B65536").End(xlUp).Row Number = Cells(2, 256).End(xlToLeft).Column K = 3 '起始行 Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("b4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("d4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("f4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("e4"), Order1:=xlAscending, Header:=xlYes End Sub

wuxingch

你看每B列中，还是乱的

还是不行呀！

Long_III

你的第一排序列是哪个，第二个排序的哪个，第三个又是，第四个……

代码的B列是第四个排序列，当然不会全在一起了

wuxingch

我的第一排序是B列、第二排序是D列、第三排序是F列、第四排序是e列

是不是，我这样写:

Sub 排序() ENDROW = Range("B65536").End(xlUp).Row Number = Cells(2, 256).End(xlToLeft).Column K = 3 '起始行 Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("e4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("f4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("d4"), Order1:=xlAscending, Header:=xlYes Range(Cells(K, 1), Cells(ENDROW, Number)).Sort Key1:=Range("b4"), Order1:=xlAscending, Header:=xlYes End Sub

[此贴子已经被作者于2005-5-31 5:05:31编辑过]

UNARTHUR

以下是引用wuxingch在2005-5-30 21:09:00的发言：

我的第一排序是B列、第二排序是D列、第三排序是F列、第四排序是F列

2个f?我晕[em06]

UNARTHUR

以下是引用Samsea在2004-10-6 18:36:00的发言： Sub MYSORT() Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("D1") Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("C1") Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("B1") Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("A1") End Sub

倒过来排！好方法！值得想想

hermitwu

Samsea ：

这个方法真牛,今天要对多列进行排序,但一直找不到好的方法.

其实Samsea可以说的更详细点,我今天第一次看到这个方法以后,简单的试了一

下,也以为不行.

其实关键是要把次序排好,在这里做个简单的说明,以便参考.

要把第一个关键字放在最后一个,而把最后一个关键字放在第一个.

Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("D1")  '最后一个关键字
Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("C1")  '第三个关键字
Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("B1")  '第二个关键字
Range(Cells(1, 1), Cells(100, 6)).Sort Key1:=Range("A1")  '第一个关键字

再次感谢Samsea !!!!!!

maydbl

在讨论中学习、提高！

paulf

Samsea的方法很好

wangfeng0918

学习了，不过有时候这种方法也有特例。实验了一下成绩的排列，取整体成绩为第一，数学成绩为第二，英语成绩为第三，排时倒过来，但出现了数学少的在上面的情况了。不知道为啥