Перейти до основного матеріалу

Як вставити розриви сторінок, коли значення змінюється в Excel?

Припустимо, у мене є ряд комірок, і тепер я хочу вставити розриви сторінок у аркуш, коли значення в стовпці А змінюються, як показано на лівому скріншоті. Звичайно, ви можете вставити їх по одному, але чи є швидкі способи вставити розриви сторінок відразу на основі змінених значень одного стовпця?

Вставити розриви сторінок, коли значення змінюється за допомогою коду VBA

Вставляти розриви сторінок, коли значення змінюється за допомогою потужної функції


Вставити розриви сторінок, коли значення змінюється за допомогою коду VBA

Наступний код VBA може допомогти вам вставити розриви сторінок нижче на основі зміни даних стовпців, будь-ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 для Excel, З його Розрізняють відмінності Ви можете швидко вставити розриви сторінок, порожні рядки, лінії нижньої межі або колір фону на основі змін значення. Клацніть, щоб завантажити Kutools для Excel!

Порада:Щоб застосувати це Розрізняють відмінності По-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Кутулс > сформований > Розрізняють відмінності, див. скріншот:

2. В вискочив Розрізнити відмінності за ключовим стовпцем у діалоговому вікні виконайте такі операції:

  • Виберіть діапазон даних і ключовий стовпець, який ви хочете використовувати;
  • Вибирати Розрив сторінки від Опції коробка

3. Потім натисніть Ok кнопки, розриви сторінок були вставлені в діапазон на основі змін значення див. скріншот:

Завантажте та безкоштовно пробуйте Kutools для Excel зараз!


Більше відносних статей:

  • Виділяти рядки при зміні значення комірки в Excel
  • Якщо на вашому аркуші є список повторюваних значень, і вам потрібно виділити рядки на основі стовпця А, значення комірки яких змінюється, як показано на наступному знімку екрана. Насправді ви можете швидко і легко закінчити цю роботу за допомогою функції умовного форматування.
  • Збільшувати номери, коли значення змінюється в іншій колонці
  • Припустимо, у вас є список значень у стовпці A, і тепер ви хочете збільшити число на 1 у стовпці B, коли значення в стовпці A змінюється, що означає, що числа в стовпці B зростають, поки значення в стовпці A не зміниться, тоді збільшення числа починається з 1, як показано на лівому скріншоті. В Excel ви можете вирішити цю роботу за допомогою наступного методу.
  • Суми клітинок, коли значення змінюється в іншій колонці
  • Коли ви працюєте на аркуші Excel, іноді вам може знадобитися підсумувати комірки на основі групи даних в іншому стовпці. Наприклад, тут я хочу підсумувати замовлення у стовпці B, коли дані змінюються в стовпці A, щоб отримати такий результат. Як ви могли вирішити цю проблему в Excel?
  • Вставляйте порожні рядки при зміні значення в Excel
  • Припустимо, у вас є діапазон даних, і тепер ви хочете вставити порожні рядки між даними, коли значення змінюється, щоб ви могли відокремити послідовні однакові значення в одному стовпці, як показано на наступних скріншотах. У цій статті я розповім про деякі трюки для вирішення цієї проблеми.
  • Запустіть макрос, коли значення комірки змінюється в Excel
  • Зазвичай в Excel ми можемо натиснути клавішу F5 або кнопку Виконати, щоб виконати код VBA. Але чи пробували ви коли-небудь запускати конкретний код макросу, коли змінюється значення комірки? У цій статті я представив декілька швидких прийомів для вирішення цієї роботи в Excel.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 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

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations