Question

我有这个代码可以自动对电子表格中的D列进行排序，它可以完美地运行。但是，我怎样才能让它排序第二列呢？

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Range("D1").Sort Key1:=Range("D1"), _
      Order1:=xlAscending, Header:=xlNo, _
      OrderCustom:=1, MatchCase:=False, _
      Orientation:=xlTopToBottom
End Sub

Answer 1

您可以按第二列排序，就像您在第一列上排序一样。

请记住，与手动排序完全一样 - 如果您希望数据按D列排序，然后按E列排序，则需要首先按C列排序。< / p>

将自动排序扩展到第二列

1 个答案: