Excelで条件付き改ページを挿入するにはどうすればよいですか？

Author Sun Last modified 2025-08-26

以下のスクリーンショットに示すように、列Aの値が変更されたときに改ページを挿入する必要があると仮定します。Excelではどのように処理できますか？一般的には、手動で1つずつ改ページを挿入することができますが、ここではこの問題を迅速に解決するためのいくつかの方法を紹介します。
conditional inserting page breaks

小計機能を使用して改ページを挿入する

VBAコードを使用して改ページを挿入する

データ変更時に差分を区別して改ページを挿入する

「N行ごとに改ページを挿入」でn行ごとに改ページを挿入する 

小計機能を使用して改ページを挿入する

Excelでは、小計機能を使用してグループに基づいて改ページを追加できます。

1. 改ページを追加したいデータを選択し、クリックします データ > 小計.
click Data > Subtotal

2. 小計ダイアログで、各変更ごとのドロップダウンリストに基づいて改ページを挿入したい列を選択し、使用したい関数を以下から選択します 使用する関数 リスト、次にチェックします グループ間の改ページ チェックボックスおよびその他の必要なオプションを設定します。
set options in the dialog box

3. クリックします OKすると、データがグループ化され、改ページが追加されます。
the data is grouped and added page breaks

VBAコードを使用して改ページを挿入する

データにグループを追加したくない場合は、VBAコードを使用してこの作業を処理できます。

1. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを表示します。

2. 挿入 > モジュールをクリックし、以下のコードを新しいモジュールウィンドウにコピーして貼り付けます。

VBA: データ変更時に改ページを挿入する

Sub PageBreak()
'UpdatebyExtendOffice20181101
    Dim xSRg As Range
    Dim xRg As Range
    On Error Resume Next
    Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    For Each xRg In xSRg
        ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
        If xRg.Value <> xRg.Offset(-1, 0).Value Then
            ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
        End If
    Next xRg
Application.ScreenUpdating = True
End Sub

3. 押します F5 キーを押すと、ダイアログがポップアップして、改ページを挿入する基準となるキーカラムを選択するよう促されます。
select the key column to insert page break based on

4. OKをクリックすると、改ページが挿入されます。

データ変更時に差分を区別して改ページを挿入する

Kutools for Excelの「列の変更をマークする」機能は、Excelでのデータ変更時に改ページ、空行、下部の罫線、または背景色を挿入することをサポートしています。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

Kutools for Excelをインストール後、以下のように操作してください。（今すぐKutools for Excelを無料ダウンロード！）

クリックします Kutools > 書式 > 列の変更をマークする.
click Distinguish Differences feature of kutools

2. 「列の変更をマークする」ダイアログで、以下の設定を行ってください：

1) 選択アイコンをクリックします範囲セクションで、データ範囲（列ヘッダーを除く）を選択します。範囲セクションで、データ範囲（列ヘッダーを除く）を選択します。

2) 選択アイコンをクリックしますキーカラムセクションで、対応するデータ変更に基づいて改ページを挿入したい列を選択します（列ヘッダーを除く）。 キーカラム セクションで、対応するデータ変更に基づいて改ページを挿入したい列を選択します（列ヘッダーを除く）。

3) チェックします 改ページ オプションセクションで オプション セクションで。
specify options in the dialog box

3. OKをクリックします。

これで、選択範囲内のデータが変更された際に改ページが挿入されます。
page breaks is inserted when data changes

「N行ごとに改ページを挿入」でn行ごとに改ページを挿入する

固定間隔で改ページを挿入したい場合、Kutools for Excelの「他の行ごとに改ページを挿入」機能を使用して問題を迅速に処理できます。

Kutools for Excelをインストール後、以下のように操作してください。（今すぐKutools for Excelを無料ダウンロード！）

1. データを選択し、クリックします Kutools Plus > 印刷 > 他の行ごとに改ページを挿入します.
click Insert Page Break Every Row feature of kutools

2. 他の行ごとに改ページを挿入しますダイアログで、必要な間隔を入力します。
type the interval to insert page break

3. クリックします OK > OK ダイアログを閉じると、2行ごとに改ページが挿入されます。
the page breaks have been inserted in every 2 rows

N行ごとに改ページを挿入する

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数