EXCEL2003でマクロを作りたいのですが教えて下さい。

質問

エクセル2003を使っています。
マクロの初心者なので、
下記のようなマクロの作り方を詳しく教えて下さい。
他にも簡単な方法があればお願いします。

　　　　＜シート１＞　　　　　　　　　　　　　　　＜シート2＞
　　A　　　　　B　　　C　　D　　　 A　　　　B　　C　　D
1　名前　郵便番号　住所　金額　　　1　名前　　　　
2　　　　以下、データ　　　　　　　　　 2　郵便番号
3　　　　　　　　　　　　　　　　　　　 3　住所　　　
・　　　　　　　　　　　　　　　　　　　・
10　　　　　　　　　　　　　　　　　　　10　　　　　　　　　　 金額　　　　　　　　　　　　　　　　　　　　　　　　　
＜シート1＞にはＡ1～Ｄ1までデータがあります。（50行）
＜シート2＞の1ページ目に＜シート1＞の1行目のデータを入れたいです。

＜シート1＞は全部で50行のデータがあり、
＜シート2＞は1～10行までを1ページとし、50ページ作りたいです。

いろいろ調べてみたのですが、わからなかったので
説明不足かもしれませんが、よろしくお願いします。

回答No.2

merlionXX · ベストアンサー

#1です。一箇所漏れがありました。
訂正します。

Sub test01()

For n = 1 To 50 '50回繰り返す
For i = 1 To 4 '4回繰り返す
Sheet2.Cells(i + X, 1) = Sheet1.Cells(n, i) '行列入れ替え転記
Next i
X = X + 10 '次の10行へ
Sheet2.HPageBreaks.Add Before:=Sheet2.Cells(X + 1, 1) '強制改ページ
Next n

End Sub

お礼

回答ありがとうございました。簡単なマクロしか使った事がなかったので、助かりました。思っていたとおりに出来たので嬉しいです！どうもありがとうございました。

回答No.3

masa-it

マクロ初心者とありますが、
他の言語プログラムは経験済みって事なのすかね？
経験者を前提として参考までに。

マクロの記録を行ってみてください。

(1)対象の2シートがある、BOOKをOPENする。
(2)ツール→マクロ→新しいマクロの記録 を選択する。
(3)ここからが重要です。
　1)sheet1のヘッダをコピー
　2)sheet2へ行列を入れ替えてペースト
　3)sheet1のデータを1行コピー
　4)sheet2へ行列を入れ替えてデータをペースト
　5)最終行で改ページの挿入
　※これを2回繰り返してください。
　当然、上記以外の操作は行ってはいけません。
　間違った操作もマクロに記録されちゃいますから。
(4)記録終了
(5)Visual Basic EditerでソースをOpenします。
Module１：Macro1で先ほど行った操作が記録されているでしょう。
(6)後は、moduleを見たら解ると思います。
　どの様にFor文で繰り返すかですね。

注意：当然マクロなどを実行する際は
他のExcelファイルは閉じておきましょう。

お礼

回答ありがとうございます。すみません初心者なので、「※これを2回繰り返してください。」という所がちょっと分からなかったので、これから調べてみようと思います。詳しく回答頂き、どうもありがとうございました。

回答No.1

merlionXX

誤解しているkも知れませんが・・・・。

Sub test01()

For n = 1 To 50 '50回繰り返す
For i = 1 To 4 '4回繰り返す
Sheet2.Cells(i + X, 1) = Sheet1.Cells(n, i) '行列入れ替え転記
Next i
X = X + 10 '次の10行へ
Sheet2.HPageBreaks.Add Before:=Cells(X + 1, 1) '強制改ページ
Next n

End Sub