[[20040420111030]]　『２１行ごとに改ページにしたい』（ミー）　ページの最後に飛ぶ

『２１行ごとに改ページにしたい』（ミー）

８列２００行ほどの表を毎回１行目を表題にして
２１行で１ページの設定にしたいのですが
簡単な方法はないでしょうか？
宜しくお願いします。

 22行目の上で改ページを挿入。以下20行のデータ毎に改ページを挿入。タイトル行に1行目を設定。
でしたら、以下のVBAではどうでしょうか？
試す時は「元に戻す」ボタンで元に戻せませんので、コピーしたファイルで試してください。
Sub 改ページ挿入()
Dim I As Integer
For I = 1 To 9
    Cells(22 + 20 * (I - 1), 1).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next I
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
    End With
End Sub
 改ページ位置がちょっと異なるかも?(読み違えた可能性有りです)　
　(マーヤ)

ばっちりできました☆
とても助かります!!ありがとう御座いました。
（ミー）

コメント返信：

[ 一覧(最新更新順) ]

[[20040420111030]] 『２１行ごとに改ページにしたい』（ミー） ページの最後に飛ぶ

[[20040420111030]]　『２１行ごとに改ページにしたい』（ミー）　ページの最後に飛ぶ