Как условная вставка разрывов страниц в 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, сделайте следующее:（Бесплатная загрузка 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-ю строку