Excelで別々のデータを合体する処理を数百個作成

質問

以下の作業をできるだけ自動的するプログラム（VBA？）を教えてください。
マクロで何とかやろうとしていましたが、行き詰っております。
＜最終目的＞２つのExcelファイルにあるデータ（リストとフォーマット）を合体させて、リストを作成し、システムに取り込める形のCSVを作成すること。
＜手順＞
（１）データを入れるためのテンプレートの書かれたファイルがあります。
テンプレートの形は、以下のようになっています。
”空白セル”と書かれているセルには、のちに記載するデータの内容が入ります。

　　　　A　　　　　　　　B　　　　C
１　カテゴリ名　　問題　　　　回答欄
２　１－１　　空白セル１　空白セル２
３　解答番号　　回答
４　　　１　　　空白セル３

以上の内容が１セットです。通常のリスト形式ではないかなりイレギュラーな形です・・・

（２）テンプレートに記載するデータが入ったファイルが別途あります。

　　Ａ　　　Ｂ　　C　　　D　　　　　　　　　　　E　　　　　　　Ｆ　
１　boy　空白　１　I am a ( ). 　私は少年です。　　 I am a (1).
２　dog　 空白　2　This is a ( ). 　これは犬です。　This is a (1).
　・
　・
　・

上記は2行分ですが、実際はこのデータが数百行あります。
このデータを、先のテンプレートに挿入します。（新しいブックやシートに書き出してもよいです）
挿入した形が以下になります。

　　　　A　　　　　　　B　　　　　　　C
１　カテゴリ名　　問題　　　　　　回答欄
２　１－１　　　I am a ( ) 　 　　　I am a (1)
　　　　　　　　　私は少年です。
３　解答番号　　回答
４　　　1　　　　　　boy

B2セルには、データのD1、E1のデータが入り、D１データの後ろで改行（ALT+Enter）しています。
C2セルにはF１が入ります。
B4セルにはA1が入ります。

上記の作業を、データ行分繰り返したいです。

現在はコピペ作業をすべて手作業でやっています・・・・
これを自動的に行えるような、都合の良いことが可能でしょうか？！
もしできる方法をご存知の方がいらっしゃいましたら、教えてください。

また、ついでで結構ですのでVBAを学ぶための良書があれば教えてください。
どうぞよろしくお願いいたします。

回答No.3

nicotinism · ベストアンサー

Excel の VBA はよく知りませんがたたき台にはなるかと・・

Sheet１（一番左側のシート）に
　　Ａ　　　Ｂ　　C　　　D　　　　　　　　　　　E　　　　　　　Ｆ　
１　boy　空白　１　I am a ( ). 　私は少年です。　　 I am a (1).
２　dog　 空白　2　This is a ( ). 　これは犬です。　This is a (1).
・・・・
があって、A列は連続していて途中に空白が無いものとします。

Sheet２（左から二番目のシート）に
　　　　A　　　　　　　　B　　　　C
１　カテゴリ名　　問題　　　　回答欄
２　１－１　　空白セル１　空白セル２
３　解答番号　　回答
４　　　１　　　空白セル３
だとします。

Sheet３（左から三番目のシート）がまっさらな状態であるとします。

標準モジュールに下記をコピペ
Sub test()
　　Dim r As Integer
　　r = 1
　　Do Until Worksheets(1).Cells(r, 1) = ""
　　　　Worksheets(2).Cells(2, 2) = Worksheets(1).Cells(r, 4) _
　　　　　　　& vbLf & Worksheets(1).Cells(r, 5)
　　　　Worksheets(2).Cells(2, 3) = Worksheets(1).Cells(r, 6)
　　　　Worksheets(2).Cells(4, 2) = Worksheets(1).Cells(r, 1)

　　　　Worksheets(2).Range("a2:C4").Copy Worksheets(3).Cells((r - 1) * 4 + 2, 1)
　　　　r = r + 1
　　Loop
　　MsgBox "おしまい"
End Sub

これを実行するとSheet３に望むもの（に近い）のができると思います。Excel2010で検証。
すでにデータは入力済みでしたら、
何があっても良いようにファイルのバックアップは必ず取ってからお試しください。

お礼

ご回答ありがとうございます。
かなり近いものができました！
全部代入してからテンプレごとコピーするという発想はなかったので大変助かりました。
７行目と９行目のセル参照値を少し変え、だいぶ近づいてきています。
少し変更したいところや、今回の質問に入れていないところもあるので、参考書や前のかたに提示していただいた参考サイトを参照しながら完成形に近づけていきたいと思います。
本当にありがとうございます！！

回答No.2

K Kazz（@JazzCorp）

＞現在はコピペ作業をすべて手作業でやっています・・・・
もう少しだけ時間掛かるけど...

Excel VBA 入門講座
http://excelvba.pc-users.net/
Excel VBA 入門講座へようこそ!!
このサイトはExcelの入門書レベルの学習を一通り終え、更にExcel VBAの知識を身に付けたいと考えている方を対象としています。 このサイトによりExcel VBAの魅力を体験していただければ管理人としては最高の喜びです !! (*^ ^*)

お礼

回答ありがとうございます。
一応、テキストは2冊持っているのですが、まだまだ便利なサイトもあるのですね。
No1の方も参考URLを出していただいているのですが、そこまで学習している時間がなかったので、質問させていただいたのですが・・・
でも、参考になりました。ありがとうございました。

回答No.1

atamagawarui5

＞また、ついでで結構ですのでVBAを学ぶための良書があれば教えてください。
どうぞよろしくお願いいたします。

http://www.moug.net/
http://home.att.ne.jp/zeta/gen/excel/

今から覚えるなら、説明とか面倒くさいので、マクロの自動自動入力で覚えさせて、それを触ればいいかと思います。

１から組んで貼り付けする暇が有れば、別の事します。

お礼

回答ありがとうございます。
張り付けていただいたページの2個目は知らなかったので参考になりました。今後の勉強に生かしたいと思います。
自分では2冊、本は購入して勉強中です。
ありがとうございました。