表の値を組み合わせて新しい表を生成したい

質問

表の値を組み合わせて新しい表を生成したい

元となる表は↓のようなものです。

0　　0501　　A
1　　0502　　B
2　　0503　　C
3　　0504　　D
4　　0505　　E
5　　0506　　F
6　　0507　　G
7　　　　　　　H
8
9
10

これをもとに繰り返し処理を行い、↓のような新しい表を生成したいのです。

　　　　　　　　A　　B　　C　　D　　E　　F　　G　　H
0　　0501
0　　0502
0　　0503
0　　0504
0　　0505
0　　0506
0　　0507
1　　0501
1　　0502
1　　0503
1　　0504
1　　0505
1　　0506
1　　0507
2　　0501
2　　0502
2　　0503
2　　0504
2　　0505
2　　0506
2　　0507
3　　0501
3　　0502
3　　0503
3　　0504
3　　0505
3　　0506
3　　0507
・
・
・

VBAもOKwaveも初心者です。あつかましいのですが、どなたかVBAの例文を作っていただけないでしょうか・・・

ようするには、もとの表の値を使って、集計表を作りたいのです。

回答No.1

_Kyle · ベストアンサー

ん～、こういったことでしょうか？

ご要望に沿っているかどうか自信がありませんが
とりあえず叩き台として。

---------------

Sheet1!A1セル以下の元表をもとに
Sheet2!A1セル以下に集計表の見出(?)を作成します。

元表は、途中に空白セルが無いものとしています。

※普通は Do...Loop を使う場面かとも思いますが
　弄り方を間違えると止まらなくなるので
　あえてFor...Nextで回しています。

'=======↓ココカラ↓=======================================
Sub Sample()

　Dim orgCel As Range
　Dim rtnCel As Range

　Dim i As Long
　Dim j As Long
　Dim k As Long

　Set orgCel = Worksheets("Sheet1").Range("A1")　 '元表左上隅セル
　Set rtnCel = Worksheets("Sheet2").Range("A1")　 '書出先左上隅セル

　k = 0
　For i = 0 To Rows.Count
　　If orgCel.Offset(i, 0) = "" Then Exit For
　　For j = 0 To Rows.Count
　　　If orgCel.Offset(j, 1) = "" Then Exit For
　　　k = k + 1
　　　rtnCel.Offset(k, 0).Value = orgCel.Offset(i, 0).Value
　　　rtnCel.Offset(k, 1).Value = orgCel.Offset(j, 1).Value
　　Next j
　Next i

　For i = 0 To Rows.Count
　　If orgCel.Offset(i, 2) = "" Then Exit For
　　rtnCel.Offset(0, i + 2).Value = orgCel.Offset(i, 2).Value
　Next i

End Sub
'=======↑ココマデ↑=======================================

以上ご参考まで。

お礼

出来ました！期待どおりの結果を得られました。
全く言葉足らずの中、本当にありがとうございました・・・

例文をよく読んで勉強します！