vba 为excel排序

Sub Sort()

   Dim iCounter As Integer
   Dim LastNum As Integer
   '生成随机数，作为测试数据。第一列是原来数据，第2列和第3列是生成的随机数
   LastNum = 50
   For iCounter = 1 To LastNum
      Cells(iCounter + 1, 3) = Int(Rnd() * LastNum) + 1
   Next iCounter
   For iCounter = 1 To LastNum
      Cells(iCounter + 1, 2) = Int(Rnd() * LastNum) + 1
   Next iCounter
      

    '排序，第一行为标题，先按第3列排，正序；然后按第2列排，倒序
   
   Columns("A:C").Sort key1:=Range("C1"), order1:=xlAscending, key2:=Range("B1"), order2:=xlDescending, Header:=xlYes
   


End Sub