|
学习老师的作品,
录制个排序的宏
Sub Mo1()
'
' Macro1 Macro
'
'
Range("L9:Q27").Select
ActiveWorkbook.Worksheets("目标").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("目标").Sort.SortFields.Add Key:=Range("M10:M27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("目标").Sort
.SetRange Range("L9:Q27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("目标").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("目标").Sort.SortFields.Add Key:=Range("L10:L27"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("目标").Sort
.SetRange Range("L9:Q27")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|
|