“自定义”xlDescending订购

Question

我有一个日期列表，但有些是“tbd”。如果我这样订购它们：

tbl_1.add(data1)
tbl_1.flush()
tbl2.add(tbl_1.id, data2)
tbl2.commit()

它在实际日期之前命令“tbd”。有可能扭转这种局面吗？我希望所有日期 - 按降序排列 - 首先，然后是所有“tbd”s

THX

Answer 1

对于排序，你可以试试这个：

Dim SortArr1 As Variant
SortArr1 = Array("tbd")
Application.AddCustomList ListArray:=SortArr1

Range("A6:I100").Sort key1:=Range("A6"), order1:=xlDescending, _
    Header:=xlGuess, OrderCustom:=Application.CustomListCount + 1
Application.DeleteCustomList Application.CustomListCount