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

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

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

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

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

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

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

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

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

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

3. クリックします OKすると、データがグループ化され、改ページが追加されます。

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 キーを押すと、ダイアログがポップアップして、改ページを挿入する基準となるキーカラムを選択するよう促されます。

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

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

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

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

クリックします Kutools > 書式 > 列の変更をマークする.

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

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

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

3) チェックします 改ページ オプションセクションで オプション セクションで。

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

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

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

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

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

1. データを選択し、クリックします Kutools Plus > 印刷 > 他の行ごとに改ページを挿入します.

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

3. クリックします OK > OK ダイアログを閉じると、2行ごとに改ページが挿入されます。

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