Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to insert page breaks when value changes in Excel?

doc insert page break changed values 1

Supposing, I have a range of cells, and now, I want to insert page breaks into the worksheet when values in column A changes as following screenshot shown. Of course, you can insert them one by one, but are there any quick ways to insert the page breaks at once based on the changed values of one column?

Insert page breaks when value changes with VBA code

Insert page breaks every x rows with Kutools for Excel


arrow blue right bubble Insert page breaks when value changes with VBA code


The following VBA code can help you to insert page breaks below based on once column data changes, please do as follows:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, and paste the following code in the Module Window.

VBA code: Insert page breaks when value changes:

Sub insertpagebreaks()
'updateby Extendoffice 20151228
    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. Then press F5 key to run this code, all page breaks have been inserted into the sheet when data changes in column A. See screenshot:

doc insert page break changed values 2

Note: If you want to insert page breaks when value changes base on other column, you should change the A to any other column header in above code.


arrow blue right bubble Insert page breaks every x rows with Kutools for Excel

Sometimes, you may need to insert the page breaks every n rows, here is a useful tool-Kutools for Excel, with its Insert Page Break Every Row utility, you can quickly finish this job in Excel.

Kutools for Excel : with more than 300 handy Excel add-ins, free to try with no limitation in 60 days

After installing Kutools for Excel, please do as follows:( Free Download Kutools for Excel Now! )

1. Click Enterprise > Printing > Insert Page Break Every Row, see screenshot:

doc insert page break changed values 3

2. In the popped out Insert Page Break Every Row prompt box, enter the interval number of rows which you want to insert the page break under the Interval of section, see screenshot:

doc insert page break changed values 4

3. Then click Ok button, the page breaks have been inserted into the current worksheet every 5 rows, see screenshot:

doc insert page break changed values 5

Free Download Kutools for Excel Now!


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 80% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    GUEST · 4 months ago
    Sorry. EDIT: The first ROW is a column header.
  • To post as a guest, your comment is unpublished.
    GUEST · 4 months ago
    Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.