VBA排序

donghui2363

Sub 排序()
Dim sj As Range
Set sj = [a2:b45]
sj.Sort key1:=[a3], order1:=xlAscending, key2:=[b3], order2:=xlAscending
End Sub

ardu95

maditate 发表于 2019-5-14 20:31
真的不明白，用代码去排序此类数据得到的结果到底有多少实用价值。

其实数量应该是代码或者是序号的，总之是要排序的，谢谢关心。

china047

maditate 发表于 2019-5-14 20:31
真的不明白，用代码去排序此类数据得到的结果到底有多少实用价值。

人家不是为了排序而排序,肯定是为了应用在其它地方,发出的需求只是为了验证技术!

gwjkkkkk

Option Explicit
Sub TEST1()
   With Range("A2", Cells(Rows.Count, "B").End(xlUp))
        .Parent.Sort.SortFields.Clear
        .Sort key1:=.Item(1), order1:=xlAscending, key2:=.Item(2), order2:=xlAscending, Header:=xlYes
    End With
End Sub

ykcbf1100

参与一下，多条件排序

1. Sub 多个条件排序()
   
2.     With ActiveSheet
   
3.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
4.         .Sort.SortFields.Clear '清空自定义排序的规则
   
5.         .Sort.SortFields.Add Key:=.[a3], SortOn:=0, Order:=1
   
6.         .Sort.SortFields.Add Key:=.[b3], SortOn:=0, Order:=1
   
7.         .Sort.SetRange .Range("a3:b" & r)
   
8.         .Sort.Header = 2   '//无标题
   
9.         .Sort.Apply
   
10.     End With
    
11. End Sub

复制代码