Перейти к основному содержанию

Как вставить разрыв страницы каждые x строк в Excel?

Для вас может быть легко и просто вставить разрыв страницы в рабочий лист. Иногда требуется вставить разрывы страниц в каждые X строк для аккуратной печати, как бы вы могли это сделать? Здесь я представлю несколько методов решения этой проблемы в Excel.


Вставить разрыв страницы каждые X строк с помощью VBA в Excel

Возможно, вы не знакомы с ранее запущенным VBA, но, выполнив следующие действия, вы сможете узнать, как запустить VBA для вставки разрыва страницы через каждые X строк. Здесь я буду вставлять разрыв страницы через каждые 3 строки.

1, нажмите Alt + F11 для отображения Microsoft Visual Basic для приложений окно.

2. В окне нажмите Вставить > Модули чтобы отобразить новое окно модуля, затем скопируйте следующий код VBA в окно модуля.

VBA: вставлять разрыв страницы в каждые X строк на листе.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Нажмите Run и появляется диалоговое окно, в котором вы можете указать каждые X строк, в которые вы хотите вставить разрыв страницы. Здесь я вставляю разрыв страницы в каждые 3 строки. Смотрите скриншот:
док-вставка-страница-разрыв-x-строки-1

4. Нажмите OK, а затем вставит разрыв страницы в каждые X строк.

Быстро вставлять разрыв страницы в каждую (n-ю) строку активного листа

Обычно мы вставляем один разрыв страницы при нажатии Макет страницы > Перерывы > Вставить разрыв страницы. Но таким образом слишком утомительно пакетно вставлять несколько разрывов страниц на лист, например, вам нужно вставлять по одному разрыву страницы в каждую строку для печати каждой строки на отдельной странице. Не волнуйся! Kutools для Excel Вставить разрыв страницы в каждую строку утилита поможет вам легко его заархивировать!


рекламная вставка разрыв страницы в каждой строке 3

Пакетная вставка разрывает страницу после каждых x строк с помощью Kutools for Excel

Если у вас установлен Kutools for Excel, его Разделить на столбцы Утилита может помочь вам пакетно вставлять несколько разрывов страниц после каждых x строк, легко сохраняя заголовок на каждой странице в Excel.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

1. Нажмите Разделить на столбцы на Кутулс Плюс меню.

2. В открывшемся диалоговом окне Разделить на столбцы вам необходимо:

(1) Нажмите кнопку "Обзор".  в Диапазон названий и выберите строку заголовка в указанном диапазоне, в который вы будете вставлять разрывы страниц.
(2) Нажмите кнопку "Обзор". в Диапазон дат и выберите диапазон, в который вы будете выполнять пакетную вставку разрывов страниц.
(3) В Строк на печатной странице поле введите число. (Функции: Например, если вам нужно вставить разрывы страниц после каждых 3 строк, введите 3 в поле; если вам нужно инертить разрывы страниц после каждой строки, введите 1.)
(4) Введите 1 в Количество сегментов пунктом.

3, Нажмите Ok .

Теперь вы увидите, что диапазон копируется на новый лист, а разрывы страниц добавляются после каждых x строк с сохранением заголовка диапазона. Вы также можете переключиться в режим предварительного просмотра разрыва страницы, нажав Вид > Предварительный просмотр разрыва страницы чтобы увидеть эти разрывы страниц. См. Снимок экрана ниже.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


Вставляйте разрывы страниц после каждых x строк с помощью Kutools for Excel

Kutools for Excel разрабатывает еще одну утилиту Insert Page Break Every Row, специализирующуюся на вставке разрывов страниц после каждых x строк.

Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!

1. Выберите диапазон, в который вы будете вставлять разрывы страниц после каждых x строк, и нажмите Печать > Вставить разрыв страницы в каждую строку на Кутулс Плюс меню.

2. В открывшемся диалоговом окне «Вставить разрыв страницы в каждую строку» укажите интервал строк, в которые вы будете вставлять разрывы страниц, и щелкните значок Ok .

Тогда вы увидите, что разрывы страниц вставляются сразу с заданным интервалом строк.

Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now


Демонстрация: вставляйте разрыв страницы каждые x строк в Excel


Kutools for Excel: Более 300 удобных инструментов у вас под рукой! Начните 30-дневную бесплатную пробную версию без ограничений сегодня. Скачать

Относительные статьи:

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations