excel 如何先按照厂家排序，然后按照类别排序

sophiezhf

excel 如何实现点击宏指令，就可以自动先按照厂家排序，然后按照类别排序， 请大虾帮忙

yiminglian

1. Sub Order()
   
2.     ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   
3.     ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B65536") _
   
4.         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
5.     ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C65536") _
   
6.         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   
7.     With ActiveWorkbook.Worksheets("Sheet1").Sort
   
8.         .SetRange Range("B1:G65536")
   
9.         .Header = xlYes
   
10.         .MatchCase = False
    
11.         .Orientation = xlTopToBottom
    
12.         .SortMethod = xlPinYin
    
13.         .Apply
    
14.     End With
    
15. End Sub
    

复制代码

录制的，都是升序排的你可以自己尝试一下。数据排序功能