用键vbasorting列表

我正在写一些东西来sortingA2和F中数据的结尾之间的数据。sorting将首先使用自定义数组顺序sortingF，然后按照F顺序按字母顺序sortingA. 此刻，我得到了关于Key1的错误“声明的预期结束”，但我不确定这是为什么。 有没有什么我错过了能够使用sorting键？

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