データを4の増加でソートする

Question

私はいくつかの基準でデータをソートするソートコードを持っています。しかし、増加する順番ではなく、毎回4つずつ増加するはずです。例として、私が数0、1、4、5、8、および9があるかもしれませんが、私は彼らが0、4、8としてリストされたいた後、1、5、9

Dim num As Range 
Dim sortcode As Range 
Dim sortnum As Range 
Dim firstsort As Range 
rangevalue = ("I2:I" & rlastrow) 
Set firstsort = Range(rangevalue) 

rangevalue = ("L2:L" & rlastrow) 
Set sortcode = Range(rangevalue) 

rangevalue = ("J2:J" & rlastrow) 
Set sortnum = Range(rangevalue) 

wr.Sort.SortFields.Clear 
    wr.Sort.SortFields.Add Key:=firstsort _ 
     , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    wr.Sort.SortFields.Add Key:=sortcode _ 
     , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    wr.Sort.SortFields.Add Key:=sortnum _ 
     , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 
    With wr.Sort 
     .SetRange Range("A1:L" & rlastrow) 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 

はそれが可能ですsortnumフィールドで自分のコードを変更するには、順序を増やすのではなく4を増やす必要がありますか？

Answer 1

@ YowE3Kコメントはヘルパーコラムについては音声アドバイスです。

別のオプション：カスタムソート順を使用します。

あなたのリストが小さくて管理している場合は、手動でこのようにそれを書くことができます：

wr.Sort.SortFields.Add Key:=firstsort _ 
    , SortOn:=xlSortOnValues, Order:=xlAscending, _ 
    CustomOrder:= "0,4,8,12,16,1,5,9,13,17,2,6,10,14,18,3,7,11,13,19", _ 
    DataOption:=xlSortNormal 

これだけの種類0

19例：

---

リストが大きい場合は、プログラムでカスタムオーデr文字列を必要な大きさに変換し、変数に設定します。

CustomOrder:=mySortString