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

以下のスクリーンショットに示すように、列Aの値が変更されているときに改ページを挿入する必要があるとすると、Excelでどのように処理できますか？ 通常、改ページは手動でXNUMXつずつ挿入できますが、ここでは、これをすばやく解決するための秘訣をいくつか紹介します。

小計関数を使用して改ページを挿入する

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

データ変更時にページ分割を挿入するための違いを区別する

n番目の行に改ページを挿入するには、すべての行に改ページを挿入します

小計関数を使用して改ページを挿入する

Excelでは、小計関数はグループに基づいて改ページを追加できます。

1.改ページを追加するデータを選択し、をクリックします 且つ > 合計.

2。 の中に 合計 ダイアログで、ドロップダウンリストの値に基づいて改ページを挿入する列を選択し、使用する関数を選択します。 関数を使用します リストしてから確認してください グループ間の改ページ チェックボックスおよび必要に応じて他のオプション。

3。 クリック OK。 これで、データがグループ化され、改ページが追加されました。

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

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

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

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、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）

クリック クツール > フォーマット > 違いを区別する.

2。 の中に キー列で違いを区別する ダイアログ、以下の設定を終了してください：

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

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

3）チェック 改ページ 内のオプション オプション のセクションから無料でダウンロードできます。

3。 クリック Ok.

選択した範囲でデータが変更されると、ページ分割が挿入されるようになりました。

n番目の行に改ページを挿入するには、すべての行に改ページを挿入します

一定の間隔で改ページを挿入する場合は、次を使用できます。 Kutools for Excelさん 行ごとにページを挿入 問題を迅速に処理するためのユーティリティ。

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

1.データを選択し、をクリックします クツールズプラス > 印刷 > 行ごとに改ページを挿入.

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

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

  改ページを挿入N行ごとに分割