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

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

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

強力な機能で値が変更されたときに改ページを挿入する

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

次のVBAコードは、列データの変更に基づいて以下に改ページを挿入するのに役立ちます。次のようにしてください。

1. 押したまま Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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のデータが変更されると、すべての改ページがシートに挿入されます。スクリーンショットを参照してください。

強力な機能で値が変更されたときに改ページを挿入する

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > フォーマット > 違いを区別する、スクリーンショットを参照してください：

2。 飛び出した キー列で違いを区別する ダイアログボックスで、次の操作を実行します。

• 使用するデータ範囲とキー列を選択します。
• 選択する 改ページ オプション ボックス。

3。 次に、をクリックします Ok ボタンをクリックすると、値の変更に基づいて改ページが範囲に挿入されます。スクリーンショットを参照してください。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

より相対的な記事：