"custom" xlDendingDending

私は日付のリストを持っていますが、いくつかは "tbd"です。私がそう注文したら："custom" xlDendingDending

Range("A6:I100").CurrentRegion.Sort key1:=Range("A6"), order1:=xlDescending, Header:=xlGuess

実際の日付の前に "tbd"を注文します。これを逆にすることは可能ですか？降順に - - 私はすべての日付がしたい最初の、そしてすべての「TBD」の

THXあなたはこの試みることがソートのために

出典

2017-08-18 dv3

を最初に範囲の検索/置換を実行し、すべての 'TBD'を' 1901-12-31'のような日付に置き換えてソートし、次に置換を逆にする方法はありますか？ – CLR

ヘルパー列を使用できますか？例えば。ソートに含めることができる '= ISNUMBER（A6）'（日付は 'TRUE'を返します）の値の横にある列です。 –

：より良い方法がないと仮定すると、

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

出典

2017-08-18 09:50:27 Mrig

答えて

関連する問題