インターバルでの並び替え方法

質問

どなたかご存じでしたらご回答願います。
数字選択宝くじのロト６、ミニロトの抽選結果をエクセルにつけております。
この中で、”数字の出現間隔（インターバル）”をロト６なら１～４３の数字
（ミニロトなら１～３１の数字）で、それぞの出現間隔をつけています。

【質問】
下記のようなインターバル表がある場合、インターバルを基準として１～４３迄の
数字を並べるにはどうすればよいですか？

◎ＩＮＰＵＴ
数字　　　　　　　 １　２　３　４　５　６　７　８　～　３８　３９　４０　４１　４２　４３
インターバル　　0　　5　20　7　4　13　2　10　～　　0　　1　　0　　5　　10　　17

※説明(1)　　インターバルの”0”は、最新抽選にて出現した数字を表します。
※説明(2)　　インターバルの数字（最大数字）は固定ではないです。変動します。

◎ＯＵＴＰＵＴ
インターバル　　数字
20　　　　　　　　　3
17　　　　　　　　　43
13　　　　　　　　　6
10　　　　　　　　　8　　42
7　　　　　　　　　　4　　
5　　　　　　　　　　2　　5　　41
2　　　　　　　　　　7
0　　　　　　　　　　1　　38　　40　　

※説明(1)　インターバル0から順番に、同じインターバルを持つ数字どおしを昇順に左から並べる。
※説明(2)　ｉｎｐｕｔのインターバル数字が変動すれば、outputも変動します。

使用するエクセルは２０１０です。

以上、ご回答よろしくお願いします。

回答No.1

tom04 · ベストアンサー

こんばんは！
↓の画像で上側がSheet1（元データ）でSheet2に表示するようにしています。

Sheet1の3行目を作業用の行として使用します。
作業行B3セルに
=IF(COUNTIF($B$2:B2,B2)=1,RANK(B2,$B$2:$AR$2),"")
という数式を入れAR列（43番目）までオートフィルでコピーしておきます。

そしてSheet2のA2セルに
=IF(COUNT(Sheet1!$3:$3)<ROW(A1),"",INDEX(Sheet1!$2:$2,,MATCH(SMALL(Sheet1!$3:$3,ROW(A1)),Sheet1!$3:$3,0)))
という数式を入れオートフィルで下へ43行分コピー！

最後にSheet2のB2セルに
=IF(OR($A2="",COUNTIF(Sheet1!$2:$2,$A2)<COLUMN(A1)),"",INDEX(Sheet1!$A$1:$AR$1,,SMALL(IF(Sheet1!$A$2:$AR$2=$A2,COLUMN($A$1:$AR$1)),COLUMN(A1))))

このB2セルは配列数式になってしまいますので、Shift+Ctrl+Enterで確定！
この画面からコピー＆ペーストする場合は
B2セルに貼り付け後、数式バー内で一度クリック！
編集可能になりますので、Shift+Ctrlキーを押しながらEnterキーで確定！
数式の前後に｛　｝マークが入り配列数式になります。
このB2セルを列方向・行方向にオートフィルでコピーすると
画像のような感じになります。m(_ _)m

お礼

早速のご回答ありがとうございます。
いつもわかりやすい説明と実行結果ありがとうございます。
同じ結果となり、また求めていた結果が得られて満足しています。
ありがとうございました。