[已解决]请教关于超过3个关键字的多关键字排序

CiCi-Hsu · 发表于 2010-1-7 23:03

请教想利用VBA来实现超过3个关键字的多关键字排序

下面的代码是通过自己操作“排序”录制的宏，然后加工的但是不行，超过3个关键字就无法运行了，请大家帮忙、指导，谢谢！

   Sub Macro1()
    ' Macro1 Macro
        Cells.Select
        Selection.Sort _
            Key1:=Range("A2"), Order1:=xlAscending, _
            Key2:=Range("B2"), Order2:=xlAscending, _
            Key3:=Range("C2"), Order3:=xlAscending, _
            Key4:=Range("D2"), Order3:=xlDescending, _
            Header:=xlGuess, _
            OrderCustom:=1, _
            MatchCase:=False, _
            Orientation:=xlTopToBottom, _
            SortMethod:=xlPinYin, _
             DataOption1:=xlSortNormal, _
            DataOption2:=xlSortNormal, _
            DataOption3:=xlSortNormal, _
            DataOption4:=xlSortNormal
     End Sub

DYfpeOzd.rar (8.76 KB, 下载次数: 34)

oobird · 发表于 2010-1-7 23:31

    Sub Macro1()
        [a2:d65536].Sort [a2], 1, [b2], , 1, [c2], 1
        [a2:d65536].Sort [d2], 2
     End Sub

CiCi-Hsu · 发表于 2010-1-7 23:38

QUOTE:

以下是引用oobird在2010-1-7 23:31:00的发言：
    Sub Macro1()
        [a2:d65536].Sort [a2], 1, [b2], , 1, [c2], 1
        [a2:d65536].Sort [d2], 2
     End Sub

谢谢试过了，但是并没有按照设定顺序排序

amulee · 发表于 2010-1-8 08:26

这个最佳答案由 amulee 给出，感谢 amulee 的回答。

单击隐藏图章

反一下就好了

Sub Macro3()
[a2:d65536].Sort [d2], 2
[a2:d65536].Sort [a2], 1, [b2], , 1, [c2], 1
End Sub

lotte · 发表于 2010-1-8 08:38

多关键字排序用技巧很简单的[em07]

		自动登录	找回密码
密码			注册