エクセルでページをコピーして貼り付けるマクロ

質問

［sheet1］内での作業ですが…
雛形のページを１枚作成して、複数枚のページが必要になったので「マクロの記録」で１ページ分の行をコピーして、１ページの下に貼り付けてみました…で、それは実行できるのですが、３ページ目では実行できません。
マクロの知識はありませんが、ページを貼り付ける行が変更できないからだなぁ～と。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub ページを追加()
'
' Macro1 Macro
' マクロ記録日 : 2013/12/12 ユーザー名 : エクセル-NOTE
'

'
Rows("9:51").Select
Selection.Copy

Rows("52:52").Select
ActiveSheet.Paste
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
何処でも好きな行を選択してページを増やすことはできないのでしょうか?

ただ、単純にページを下へ下へと、必要な分だけ追加したいのです…が。
上の「数行」は見出しに利用しています。

回答No.2

noname#203218 · ベストアンサー

マクロを実行毎にコピペで１ページ分を増加させたいという事であれば下記方法で可能だと思います。
ご参考まで。

Sub ページを追加()

Dim myRange As Range
Dim Maxrow, i, j As Long

'データがあるセル範囲の最終行番号を取得
Set myRange = ActiveSheet.UsedRange
Maxrow = myRange.Row + myRange.Rows.Count - 1

'現在ページ数を計算
i = Application.RoundUp((Maxrow - 8) / 43, 0)

'ペーストを開始する行番号を計算
j = i * 43 + 9

Rows("9:51").Select
Selection.Copy

Rows(j).Select
ActiveSheet.Paste

End Sub

お礼

ありがとうございます、返事が送れました、申し訳ないです。m(_ _)m

教えていただいたmacroで対応できました。
知識がないのでmacro自体は意味がわかりませんが…

できれば、できたで…
「そっかぁ～こういう事も、ああいうこともできるかなぁ～」などと、いろいろ考えが広がりましたので、今回のことを契機にmacroを少し勉強しようと思いました。
また、質問をするかも解りません…その時は、よろしくです。

今回はありがとう御座いました。

回答No.1

bin-chan

Rows("9:51").Select Selection.Copy

Rows("52:52").Select ActiveSheet.Paste
Rows("94:94").Select ActiveSheet.Paste

でどうなります？

お礼

今回は、素早い対応、ありがとう御座いました。
返事が遅れまして、すみません。

macroのほうも、私の知識不足のため、十分な検証もできなかったことだと思っています、申し訳ないです。

ありがとう御座いました。

補足

返事が遅くなりました、申し訳ないです。<(_ _)>
早速、教えていただいたmacroをコピーして確認してみましたが…
エラー??(よく解りません)になりました。

ページを増やすというより、結局のところは「行をコピーして貼り付け」なので、もう少し試してみます。

ありがとう御座いました。