Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вставити розрив сторінки кожні x рядків у Excel?

Вам може бути легко і просто вставити розрив сторінки в аркуш. Іноді потрібно вставляти розриви сторінок у кожні X рядки для друку в порядку, як ви могли це зробити? Тут я представляю кілька методів вирішення цієї проблеми в Excel.


Вставити розрив сторінки через кожні X рядків за допомогою VBA в Excel

Можливо, ви раніше не знайомі з VBA, але з наступними кроками ви можете знати, як запустити VBA, щоб вставити розрив сторінки кожні X рядків. Тут я вставлю розрив сторінки в кожні 3 рядки.

1. Прес Alt + F11 щоб відобразити Microsoft Visual Basic для додатків вікна.

2. У вікні натисніть Insert > Модулі щоб показати нове вікно модуля, скопіюйте наступний код 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. Клацання прогін і з'явиться діалогове вікно, щоб вказати кожні X рядків, в які потрібно вставити розрив сторінки. Тут я вставляю розрив сторінки в кожні 3 рядки. Дивіться знімок екрана:
doc-insert-page-break-x-рядки-1

4. Клацання OK, а потім він вставить розрив сторінки в кожні X рядків.

Швидко вставте розрив сторінки в кожен (n-й) рядок активного аркуша

Зазвичай ми вставляємо один розрив сторінки натисканням макет сторінки > перерви > Вставити розрив сторінки. Але таким чином занадто нудно пакетно вставляти декілька розривів сторінок у аркуш, наприклад, потрібно вставляти по одному розриву сторінки в кожен рядок для друку кожного рядка на окремій сторінці. Не хвилюйся! Kutools для Excel Вставити розрив сторінки кожного рядка утиліта допоможе вам легко її заархівувати! Повнофункціональна безкоштовна пробна версія 30 днів!
розрив сторінки вставки оголошення в кожен рядок 3

Пакетний розрив сторінки після кожних x рядків за допомогою Kutools для Excel

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

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. Клацання Розділити на стовпці на Kutools Plus Вкладка.

2. У діалоговому вікні Розділити на стовпці потрібно:

(1) Натисніть кнопку Огляд  в Діапазон назв і виберіть рядок заголовка у зазначеному діапазоні, для якого ви будете групово вставляти розриви сторінок.
(2) Натисніть кнопку Огляд в Проміжок часу і виберіть діапазон, для якого ви будете групово вставляти розриви сторінок.
(3) В Рядки на друкованій сторінці введіть номер. (Чайові: Наприклад, якщо вам потрібно вставити розриви сторінок через кожні 3 рядки, введіть 3 у поле; якщо вам потрібно інертні розриви сторінки після кожного рядка, введіть 1.)
(4) Введіть 1 у Кількість сегментів коробка

3. Натисніть Ok кнопки.

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

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now


Вставляйте розриви сторінок після кожних x рядків за допомогою Kutools для Excel

Kutools для Excel розробляє ще одну утиліту «Вставити розбиття сторінок кожного рядка», яка спеціалізується на вставці розривів сторінок після кожних x рядків.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. Виберіть діапазон, який ви будете вставляти розриви сторінок після кожних x рядків, і натисніть друк > Вставити розрив сторінки кожного рядка на Kutools Plus Вкладка.

2. У діалоговому вікні Вставити розрив сторінки кожен рядок вкажіть інтервал рядків, у який ви вставите розриви сторінок, і натисніть Ok кнопки.

Тоді ви побачите, що розриви сторінок вставляються відразу за вказаним інтервалом рядків.

Kutools для Excel - Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now


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


Kutools для Excel включає більше 300 зручних інструментів для Excel, які можна спробувати без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Відносні статті:


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    vantuyen · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Emad · 6 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Yalin · 7 years ago
    Thanks a lot from Istanbul / Turkey :)