使用鍵排序列表vba

Question

我正在寫一些東西來排序A2和F中數據的結尾之間的數據。排序將首先使用自定義數組順序排序F，然後在F順序內按字母順序排序A.此刻，我得到了Key1的錯誤「預期結束語句」，但我不確定這是爲什麼。有沒有我能夠使用排序鍵丟失的東西？

Sub Sort_Data() 

Dim lstrw As Integer 


    lstrw = Range("A2").End(xlDown).Row 

    With Range("A2", Cells(lstrw, "F")).Sort Key1:=Range("F2"), CustomOrder1:="OFDB,CSTM,*FS", _ 
      key2:=Range("A2"), order2:=xlAscending, _ 
      Header:=xlNo 
    End With 

End Sub 

Answer 1

移動的.Sort下降到下一行：

Option Explicit 

Sub Sort_Data() 
    Dim lstrw As Integer 
    lstrw = Range("A2").End(xlDown).Row 
    With Range("A2", Cells(lstrw, "F")) 
     .Sort Key1:=Range("F2"), CustomOrder1:="OFDB,CSTM,*FS", _ 
      key2:=Range("A2"), order2:=xlAscending, _ 
      Header:=xlNo 
    End With 
End Sub