以前に実行したVBAに慣れていない可能性がありますが、次の手順で、X行ごとに改ページを挿入するためにVBAを実行する方法を知っている可能性があります。 ここでは、3行ごとに改ページを挿入します。

1。 押す Altキー+ F11 を表示する アプリケーション向け Microsoft Visual Basic 窓。

2。 ウィンドウで、をクリックします インセット > モジュール 新しいモジュールウィンドウを表示するには、次のVBAコードをモジュールウィンドウにコピーします。

VBA：ワークシートのX行ごとに改ページを挿入します。

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3に設定します。 OK をクリックします。 ラン ボタンとダイアログが表示され、改ページを挿入するX行ごとに指定できます。ここでは、3行ごとに改ページを挿入します。 スクリーンショットを参照してください：

4に設定します。 OK をクリックします。 OK、次に、X行ごとに改ページを挿入します。

アクティブなワークシートの（n番目）行ごとに改ページをすばやく挿入する

通常、クリックするとXNUMXつの改ページが挿入されます ページレイアウト > ブレーク > 改ページを挿入。 ただし、この方法では、ワークシートに複数の改ページをバッチ挿入するのは面倒です。たとえば、各行を別々のページに印刷するには、行ごとにXNUMXつの改ページを挿入する必要があります。 心配しないでください！ Excel用のKutools 行ごとに改ページを挿入 ユーティリティは、簡単にアーカイブするのに役立ちます！

Kutools for Excelがインストールされている場合、 列に分割 ユーティリティを使用すると、Excelで各ページのタイトルを簡単に維持しながら、x行ごとに複数の改ページをバッチ挿入できます。

1に設定します。 OK をクリックします。 列に分割 クツールズプラス タブには何も表示されないことに注意してください。

2。 [列に分割]ダイアログボックスを開くには、次のことを行う必要があります。

（1）[参照]ボタンをクリックします  セクションに タイトルの範囲 ボックスをクリックし、改ページをバッチ挿入する指定範囲のタイトル行を選択します。
（2）[参照]ボタンをクリックします セクションに 日付範囲 ボックスをクリックし、改ページをバッチ挿入する範囲を選択します。
で（3） 印刷ページあたりの行数 ボックスに、番号を入力します。 （（先端：たとえば、3行ごとに改ページを挿入する必要がある場合は、ボックスに3を入力してください。 すべての行の後に改ページを無効にする必要がある場合は、1を入力してください。）
（4）に1を入力します セグメント数 ボックス。

3。 クリック Ok

これで、範囲が新しいワークシートにコピーされ、範囲のタイトルを維持したままx行ごとに改ページが追加されます。 クリックして改ページプレビュービューに切り替えることもできます 詳しく見る > 改ページプレビュー これらの改ページを確認します。 以下のスクリーンショットを参照してください。

Kutools for Excelは、x行ごとに改ページを簡単に挿入することに特化した別の改ページ挿入ユーティリティを開発しています。

1。 x行ごとに改ページを挿入する範囲を選択し、をクリックします 印刷 > 行ごとに改ページを挿入 クツールズプラス タブには何も表示されないことに注意してください。

2。 最初の[改ページをすべて行に挿入]ダイアログボックスで、改ページを挿入する行の間隔を指定し、[ Ok

次に、指定した行間隔で改ページが一度に挿入されるのがわかります。