求excel vba如何实现如下多条件、不同列条件的排序。

Question

处理后：

Answer 1

如果没有标题行的话，单击数据区域，点击数据——排序——主要关键字里选 列B——次要关键字选 列C，选无标题行——确定。

Answer 2

Sub Macro2()
'
' Macro2 Macro
'

'
Range("A1:C5").Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("B1:B5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("C1:C5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range("A1:C5")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Answer 3

Sub Macro1()
'
' Macro1 Macro
' 宏由 yzvvj 录制，时间: 2012/9/8
'
'
Range("A1:C9").Select
' Range("B1").Activate
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub