Как условная вставка разрывов страниц в Excel?
Предположим, вам нужно вставить разрывы страниц при изменении значений в столбце A, как показано на скриншоте ниже, как вы могли бы справиться с этим в Excel? Как правило, вы можете вставлять разрывы страниц один за другим вручную, но здесь я предлагаю несколько уловок для быстрого решения этой проблемы.
Использование функции "Промежуточный итог" для вставки разрывов страниц
Использование кода VBA для вставки разрывов страниц
Distinguish Differences для вставки разрыва страницы при изменении данных
Вставить разрыв страницы в каждую строку, чтобы вставить разрыв страницы в n-е строки
Использование функции "Промежуточный итог" для вставки разрывов страниц
В Excel функция «Промежуточный итог» может добавлять разрывы страниц в зависимости от группы.
1. Выберите данные, к которым вы хотите добавить разрывы страниц, нажмите Данные > Сумма.
2. в Сумма выберите столбец, в который вы хотите вставить разрыв страницы, на основе его значения в раскрывающемся списке При каждом изменении, затем выберите функцию, которую вы хотите использовать, из Использование функции список, затем проверьте Разрыв страницы между группами флажок и другие параметры по мере необходимости.
3. Нажмите OK. Теперь данные сгруппированы и добавлены разрывы страниц.
Использование кода VBA для вставки разрывов страниц
Если вы не хотите добавлять группы к данным, вы можете попробовать код VBA для выполнения этой задачи.
1. Нажмите Alt + F11 ключи для отображения Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в новое окно модуля.
VBA: вставлять разрывы страниц при изменении данных
Sub PageBreak()
'UpdatebyExtendOffice20181101
Dim xSRg As Range
Dim xRg As Range
On Error Resume Next
Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xRg In xSRg
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
If xRg.Value <> xRg.Offset(-1, 0).Value Then
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
End If
Next xRg
Application.ScreenUpdating = True
End Sub
3. Нажмите F5 появится диалоговое окно, напоминающее вам о выборе ключевого столбца, на основе которого вставляется разрыв страницы.
4. Нажмите OK, теперь разрывы страниц вставлены.
Distinguish Differences для вставки разрыва страницы при изменении данных
Ассоциация Выявить различия особенность Kutools for Excel поддерживает вставку разрыва страницы, пустой строки, нижней границы или цвета фона при изменении данных в Excel.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
Нажмите Кутулс > Формат > Выявить различия.
2. в Различать различия по ключевому столбцу диалоговое окно, пожалуйста, завершите следующие настройки:
1) щелкните значок выбора 
в Диапазон раздел, выберите диапазон данных (исключая заголовки столбцов)
2) щелкните значок выбора в Ключевой столбец выберите столбец, в который вы хотите вставить разрыв страницы, на основе соответствующего изменения данных (исключая заголовки столбцов).
3) check (проверить) Разрыв страницы вариант в Опции .
3. Нажмите Ok.
Теперь разрывы страниц вставляются при изменении данных в выбранном диапазоне.
Вставить разрыв страницы в каждую строку, чтобы вставить разрыв страницы в n-е строки
Если вы хотите вставить разрывы страниц через фиксированный интервал, вы можете использовать Kutools for ExcelАвтора Вставить страницу в каждую строку утилита для быстрого решения проблемы.
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите данные и нажмите Кутулс Плюс > Печать > Вставить разрыв страницы в каждую строку.
2. в Вставить разрыв страницы в каждую строку В диалоговом окне введите нужный интервал.
3. Нажмите OK > OK чтобы закрыть диалоги, разрывы страниц были вставлены в каждые 2 строки.
Вставить разрыв страницы в каждую N-ю строку
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
