Vba 对一系列数据进行排序

这是基于列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

是标题的范围。我的印象是，这可能比那简单得多。如有任何建议，将不胜感激。 谢谢你，Michael使用这个：

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

使用以下命令：

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

---

谢谢，很好用！如果我可能会问，当我有一个自定义列表，例如“CustomOrder:=“Low，Normal，High”，我想根据它对相同范围的数据进行排序时，我应该将它嵌入到您发布的代码中的什么位置？因为我得到一个错误，必须像这样将自定义列表添加到排序选项中，第1行：ActiveSheet.Sort.SortFields.add Key:=Range（“E13”），CustomOrder:=“Low，Normal，High”第2行：Range（“A12:L528”）。Sort Key1:=Range（“E13”），Order1:=xlAscending，Header:=xlyest谢谢，工作正常！如果我可能会问，当我有一个自定义列表，例如“CustomOrder:=“Low，Normal，High”，我想根据它对相同范围的数据进行排序时，我应该将它嵌入到您发布的代码中的什么位置？因为我得到一个错误，必须像这样将自定义列表添加到排序选项中，第1行：ActiveSheet.Sort.SortFields.add Key:=Range（“E13”），CustomOrder:=“Low，Normal，High”第2行：Range（“A12:L528”）。Sort Key1:=Range（“E13”），Order1:=xlAscending，Header:=xlYes