EXCEL VBA多关键字排序

habar 2009-06-10 01:49:03

跪求高手帮忙。EXCEL VBA中如何进行多关键字排序？如：主要关键字：降序、次要关键字：升序、第三关键字：降序、第四关键字...求代码。。谢谢

...全文

522 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2009-06-11

打赏
举报

Sub paixu()

Dim i As Long

With [a1].Resize(100, 20)

.Formula = "=int(rand()*20)"

.Value = .Value

For i = 19 To 0 Step -1

Range("a1").Sort [a1].Offset(, i), 2 - i Mod 2

Next

End With

End Sub

booksoon 2009-06-10

打赏
举报

Range("A1:G277").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range _
("B2"), Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers, _
DataOption2:=xlSortNormal, DataOption3:=xlSortTextAsNumbers