＜エクセル＞マクロを使ってデータを入力したいのですが・・

質問

エクセル初心者のため、
どなたかご存知の方がいらっしゃいましたら教えていただけないでしょうか。

エクセルで、ある申込書のフォームにデータ（氏名・フリガナ・生年月日・年齢等を入力したいのですが１００名分くらいあるためマクロを作って元データからコピーできれば・・と考えています。

１００人分の元データはＳｈｅｅｔ１にあり、
１名につき１行で、Ａ１に氏名、Ｂ１にフリガナ、Ｃ１に生年月日・・・（～F1まで）となっています。（～１００行目まで）

そのデータをＳｈｅｅｔ２にある申込書フォームの該当欄にコピーしたいのですが、簡単な方法はありますでしょうか。

Ｓｈｅｅｔ２には１０名分の入力欄があるので、、
Ｓｈｅｅｔ１の１行目の人のＡ１(氏名)のデータをＳｈｅｅｔ２のＢ１２（氏名入力欄）へ、
Ｓｈｅｅｔ１の２行目の人のＡ２(氏名)のデータをＳｈｅｅｔ２のＢ１４（氏名入力欄）へ、
・・・・・
Ｓｈｅｅｔ１の１０行目の人のＡ１０（氏名）のデータをＳｈｅｅｔ２のＢ３０（氏名入力欄）へ、
という感じでコピーしていきたいです。
（フリガナ、生年月日、年齢などそれぞれ欄があります）

とりあえず１０人分ずつＳｈｅｅｔ２にコピーできるマクロが組めれば大変助かるのすが・・・。

説明も上手にできず申し訳ないのですが・・・。

私の知識レベルでは１００人分こぴぺこぴぺする方が早いのかもしれませんが
どなたかアドバイスをいただければ大変うれしいです。
どうか、宜しくお願いいたします。

回答No.5

ASIMOV · ベストアンサー

マクロじゃありませんけど

Sheet2の
B1 =0　（仮）とし
B12 =OFFSET(Sheet1!$A$1,(ROW()-12)/2+$B$1*10,0)
とし
B14 以下に同じものをコピーします

するとSheet2の入力欄にSheet1の１０名分の氏名が転記されたと思います
この状態でSheet2のB1に１を入れて見てください
すると、次の１０名分が転記されると思います
この様にB1に０～９を入れるだけで、１０名分ずつ転記出来ます
B1が既に使用済の場合は空いている所に変更できます
その場合は、式の
　$B$1 を変更してください

回答No.4

merlionXX

No1 merlionXXです。

> このA1の転記先と同じパターンでB1、C1と繰り返していけばよいのですね。

繰り返し一個ずつ書く方法もありますが、転記先が連続している等、規則性があるならもっと簡単に書けます。B1～F1の転記先がどこになるのかをちゃんと書いてくれればアドバイスできるのですが・・・。

回答No.3

kuma56

マクロが組める人ならそれほど難しい作業ではないと思いますが。それが解らない段階の初心者に説明しても、どのようなレベルで理解できているのかがよく判りません。
親切な回答者ならば、ここで手本のマクロを記述して"これをコピーしてやれば使えますよ！"・・・みたいな回答をくれるかもしれないけど、このサイトは根本的にマクロの作成を依頼する場所ではなく、そういう事は規約違反になり削除の対象になりかねません。
ある程度まで自分でマクロを組んでみて、うまくいかない場合にその記述のどこがおかしいのか質問できるくらいなら、マクロで処理した方がいいだろうけど、質問文からするとこの質問の答えを待ってマクロに挑んで処理するよりも、手作業でやったほうがずっと早く出来上がると思います。
っとはいえ、100人分のコピーはやはり大変そうだから、チョットだけ楽になりそうな方法として・・・・
まずsheet1のa1～a10のコピーを取り、sheet2のB12に張り付ける。
B13～B112までを選択してマウスでドラッグして一行分空白を作るように下げる。
同じようにしてB15～B113までを選択してマウスでドラッグして一行分下げる。
これを繰り返せばsheet1とsheet2の間でコピーペーストを何度も繰り返す事はしなくてもよくなる。

お礼

おっしゃることごもっともです～。
丁寧にご回答くださりうれしいです。

かなり甘えがあるので、マクロについてはもう少し勉強してから、
と思います。
ヒントもいただけて助かりました。
どうもありがとうございました！

回答No.2

magician_1

マクロに関しての知識がないのであれば、フォームをwordで作成して、wordの差込印刷を使用してはいかがですか？

今後もこの様な事をしたいのであれば、この機会にVBAを学習されてはいかがですか。

お礼

Word・・・

ほんとうですよね～。
正しいご指摘ありがとうございます。
かなり甘えてしまってお恥ずかしいです。

ご回答ありがとうございました！

回答No.1

merlionXX

お書きになった情報だけでは氏名（A1）の転記先しか書いてないのでB～Fは無視しています。
要はSheet2、B12以降に1行おきに転記すればいいのでしょうか？
ならば、

Sub 隔行転記()
For i = 1 To 100
Sheets("Sheet2").Cells(i * 2 + 10, "B") = Sheets("Sheet1").Cells(i, "A")
Next i
End Sub

お礼

ご回答いただきありがとうございます！
このA1の転記先と同じパターンでB1、C1と繰り返していけばよいのですね。

とっかかりをいただけてとても助かります。
迅速なご回答、感謝いたします～。