|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub Macro1()
Range("A3:V419").Select
Application.AddCustomList ListArray:=Array("
")
ActiveWorkbook.Worksheets("2套租赁总表").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("2套租赁总表").Sort.SortFields.Add Key:=Range("A3:A419") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("2套租赁总表").Sort.SortFields.Add Key:=Range("V3:V419") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="上月结存,出租,回收", _
DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("2套租赁总表").Sort.SortFields.Add Key:=Range("C3:C419") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("2套租赁总表").Sort
.SetRange Range("A2:V419")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
此段代码是我录制的一段宏,目的就是 1)排序A列按顺序就可。 2)排序V列,按上月结存", "出租", "回收 顺序排序。 3)排序C列,按升序排序。请大侠把多余语句删除,学习下。。多谢了。。。。 |
|