Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

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

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

Завантажте та безкоштовну пробну версію Kutools for Excel Зараз!


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

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

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

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, дякую! Думка про VBA змушує мене потіти. Однак у мене є одна проблема з результатами цього коду. Перший стовпець є заголовком стовпця. Код розглядає це як зміну. На моїй першій сторінці відображається лише заголовок стовпця, але наступні сторінки в порядку. FYI: це для щомісячного звіту, і кількість рядків для кожного критерію змінюється щомісяця. Будь-які ідеї? Спасибі заздалегідь.
Цей коментар був мінімізований модератором на сайті
Вибачте. РЕДАГУВАТИ: перший РЯДК — це заголовок стовпця.
Цей коментар був мінімізований модератором на сайті
Це справді блискуче! Я дотримувався вашого прикладу з VB, і це спрацювало! Я також є власником KUTools, тож буду грати з цим.

Дуже вражений і дякую!

Майк
Цей коментар був мінімізований модератором на сайті
Чи можна пропустити перші 20 рядків аркуша? Якщо я пробував усі види речей, але мої знання про VBA обмежуються тим, щоб налаштувати код самостійно.
Цей коментар був мінімізований модератором на сайті
Привіт, Вілко!
Щоб вставити розрив сторінки, але пропустити перші 20 рядків, вам просто потрібно змінити один параметр, як показано нижче:

Підставка вставки сторінок()

'updateby Extendoffice

Dim I As Long, J As Long

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

Для I = J До 21 Крок -1

Якщо Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Далі я

End Sub

Будь ласка, спробуйте, дякую!
Цей коментар був мінімізований модератором на сайті
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Цей коментар був мінімізований модератором на сайті
Привіт, Lê Tuấn
Щоб вирішити вашу проблему, застосуйте наведений нижче код VBA:
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


Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Привіт,

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

Большое спасибо!
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL