Question

这是用于根据列E值

对数据范围进行排序的代码

Sub SortByLevel()

   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add  Key:=Range("E13:E528" _
    ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

   With ActiveWorkbook.Worksheets("Sheet1").Sort
      .SetRange Range("A12:L528")
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
  End With

End Sub

请注意，B12:L12是标题的范围。我的印象是，这可能比这简单得多。任何建议将不胜感激。谢谢，迈克尔

Answer 1

使用它：

Range("A12:L528").Sort Key1:=Range("E13"), Order1:=xlAscending, Header:=xlYes

对一系列数据进行排序

1 个答案: