Excelで値が変更されたときに改ページを挿入するにはどうすればよいですか？

例えば、セルの範囲があり、今度は左のスクリーンショットに示すように、列Aの値が変わるたびにワークシートに改ページを挿入したいとします。もちろん、一つずつ挿入することもできますが、ある列の値の変更に基づいて一度に改ページを挿入する簡単な方法はありますか？

VBAコードを使用して値の変更時に改ページを挿入する

強力な機能を使用して値の変更時に改ページを挿入する

VBAコードを使用して値の変更時に改ページを挿入する

次のVBAコードは、ある列のデータが変更された際に下部に改ページを挿入するのに役立ちます。以下の手順を行ってください：

1. ALT + F11キーを押したままMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 値が変更されたときに改ページを挿入する：

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. 次に F5キーを押してこのコードを実行すると、列Aのデータが変更されたときにすべての改ページがシートに挿入されます。スクリーンショットをご覧ください：

強力な機能を使用して値の変更時に改ページを挿入する

1. 「Kutools」>「書式」>「列の変更をマークする」をクリックします。スクリーンショットをご覧ください：

2. 表示された「列の変更をマークする」ダイアログボックスで、次の操作を行います：

• 使用したいデータ範囲とキーカラムを選択します；
• 「オプション」ボックスから「改ページ」を選択します。

3. そして「OK」ボタンをクリックすると、値の変更に基づいて範囲に改ページが挿入されます。スクリーンショットをご覧ください：

関連記事：