Excelで５０行毎に改ページを入れたい

質問

表題を１行入れて１ページに４９行となるように改ページを入れたいのですが、どのようなマクロを組めばできますか？
また、行は４９行の倍数と成るように印刷範囲を設定しして列は１ページに収まるように設定するにはどうしたらよいか併せて教えていただければ助かります。

例えば、３４９行　F列まである場合は、縦が７枚×横が１ページとなるように自動で設定したいです。

回答No.2

yucco_chan · ベストアンサー

Sub Macro1()

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

i = 50
j = ActiveSheet.Cells.SpecialCells(xlLastCell).Row

For k = i + 1 To j Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

お礼

ご回答ありがとうございました。大変助かりました。

回答No.1

yucco_chan

Excel2003です。

Sub Macro1()

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

i = 50
j = 349

For k = i + 1 To 349 Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

他にもっと良い方法があるはず。。

お礼

ご回答ありがとうございました。変数jが可変の場合、一番最終の行を探す必要があるのですが、そこをどうすれば良いでしょうか？（本来であれば、別の質問でした方が良いのかも市得れませんが、続きがあれば、ということでお礼に追加させていただきます）