隣の列より大きい数字で組み合わせを作成する

質問

いつもお世話になっています。
添付の様に1枠から５枠まで縦に１～31迄の数字のうち
15個の数字がランダムに入っています。
1枠～5枠で１つずつ数字を選択して右側に組み合わせを並べるには
どうすればよいですか？
〇ルール
　１枠から５枠にそれぞれに入っている１～31迄の15個の数字で、
　左の枠の数字より大きい数字で組み合わせを作成する。
　例）
　　よい例：　2　9　18　22　31・・（1枠 > 2枠 ＞ 3枠 ＞４枠 ＞５枠）
　　悪い例：　7　5　11　14　15・・（1枠 ＜ 2枠 ＞ 3枠 ＞４枠 ＞５枠）

〇その他
　・使用するエクセルは２０１６です。
　・各枠毎には１～31迄の数字のうち１５個がランダムに入っています。
　　１つの枠内で数字の重複はありませんが、
　　隣の枠には同じ数字があります。

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

回答No.2

HohoPapa · ベストアンサー

ごめんなさい。直しました。

Sub SampleA()

　Dim Cnt1 As Long
　Dim Cnt2 As Long
　Dim Cnt3 As Long
　Dim Cnt4 As Long
　Dim Cnt5 As Long
　Dim PutRow As Long

　PutRow = 2
　With ThisWorkbook.Sheets(1)
　　For Cnt1 = 3 To 17
　　　For Cnt2 = 3 To 17
　　　　For Cnt3 = 3 To 17
　　　　　For Cnt4 = 3 To 17
　　　　　　For Cnt5 = 3 To 17
　　　　　　　If ((.Cells(Cnt1, 1).Value < .Cells(Cnt2, 2).Value) And _
　　　　　　　　(.Cells(Cnt2, 2).Value < .Cells(Cnt3, 3).Value) And _
　　　　　　　　(.Cells(Cnt3, 3).Value < .Cells(Cnt4, 4).Value) And _
　　　　　　　　(.Cells(Cnt4, 4).Value < .Cells(Cnt5, 5).Value)) Then
　　　　　　　　PutRow = PutRow + 1
　　　　　　　　.Cells(PutRow, 7).Value = .Cells(Cnt1, 1).Value
　　　　　　　　.Cells(PutRow, 8).Value = .Cells(Cnt2, 2).Value
　　　　　　　　.Cells(PutRow, 9).Value = .Cells(Cnt3, 3).Value
　　　　　　　　.Cells(PutRow, 10).Value = .Cells(Cnt4, 4).Value
　　　　　　　　.Cells(PutRow, 11).Value = .Cells(Cnt5, 5).Value
　　　　　　　End If
　　　　　　Next Cnt5
　　　　　Next Cnt4
　　　　Next Cnt3
　　　Next Cnt2
　　Next Cnt1
　End With

End Sub

お礼

早速修正いただきありがとうございます。
再度、実行したところイイ感じの結果になりました。

回答No.1

HohoPapa

こんな感じでしょか。
（ちょっと手抜きです）

Sub SampleA()

　Dim Cnt1 As Long
　Dim Cnt2 As Long
　Dim Cnt3 As Long
　Dim Cnt4 As Long
　Dim Cnt5 As Long
　Dim PutRow As Long

　PutRow = 2
　With ThisWorkbook.Sheets(1)
　　For Cnt1 = 3 To 17
　　　For Cnt2 = 3 To 17
　　　　For Cnt3 = 3 To 17
　　　　　For Cnt4 = 3 To 17
　　　　　　For Cnt5 = 3 To 17
　　　　　　　If ((.Cells(Cnt1, 1).Value < .Cells(Cnt2, 2).Value) And _
　　　　　　　　(.Cells(Cnt1, 2).Value < .Cells(Cnt2, 3).Value) And _
　　　　　　　　(.Cells(Cnt1, 3).Value < .Cells(Cnt2, 4).Value) And _
　　　　　　　　(.Cells(Cnt1, 4).Value < .Cells(Cnt2, 5).Value)) Then
　　　　　　　　PutRow = PutRow + 1
　　　　　　　　.Cells(PutRow, 7).Value = .Cells(Cnt1, 1).Value
　　　　　　　　.Cells(PutRow, 8).Value = .Cells(Cnt2, 2).Value
　　　　　　　　.Cells(PutRow, 9).Value = .Cells(Cnt3, 3).Value
　　　　　　　　.Cells(PutRow, 10).Value = .Cells(Cnt4, 4).Value
　　　　　　　　.Cells(PutRow, 11).Value = .Cells(Cnt5, 5).Value
　　　　　　　End If
　　　　　　Next Cnt5
　　　　　Next Cnt4
　　　　Next Cnt3
　　　Next Cnt2
　　Next Cnt1
　End With

End Sub

なお、抽出結果の並べ替えは
（求める並び順が明示されていないことから）
行っていません。
また、課題サンプルデータの場合
22万行弱ありますよ。

補足

早速のご回答いただきありがとうございます。
作っていただいたソースを実行したところ、
例えば１枠にある、１や２の数字より大きい２枠の数字の３は無く
５や６以上の数字になっています。
添付した図の結果には、１枠に１があり、２枠には３となっています。
１枠＞２枠＞３枠＞４枠＞５枠　
（正しくは、１枠＜２枠＜３枠＜４枠＜５枠）なので、
左側の枠の数字より右側の枠の数字が大きいことを表しますが、
右側の枠の数字の１番目としては、
左側の枠の数字＋１に近い数字になります。