將自動排序擴展到第二列

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排序。