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

Як вставити розрив сторінки кожні 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 for ExcelАвтора Вставити розрив сторінки кожного рядка утиліта допоможе вам легко її заархівувати!


розрив сторінки вставки оголошення в кожен рядок 3

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

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

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

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

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

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

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

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

Kutools for Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 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 рядків, і натисніть друк > Вставити розрив сторінки кожного рядка на Kutools Plus Вкладка.

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

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

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


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


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

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


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

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Велике спасибі зі Стамбула / Туреччини :)
Цей коментар був мінімізований модератором на сайті
Привіт, велике спасибі за код. Але коли я натискаю Cancel або x у полі введення; файл excel виходить з ладу. Чи можете ви допомогти вирішити цю проблему.
Цей коментар був мінімізований модератором на сайті
Дорогий extendoffice.com
Я хотів би надіслати відгук про функцію: Друк > Вставити розрив сторінки в кожному рядку.

Код VBA:
Sub InsertPageBreaks()
'Оновлення до 20140618
Dim xLastrow As Long
Dim xWs як робочий аркуш
Встановіть xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
Для i = xRow + 1 To xLastrow Step xRow
xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Далі
End Sub


Коли ви використовуєте цю функцію, ви можете ввести лише одну змінну xRow.
Таким чином, ця функція буде майже марною, оскільки не є гнучкою. Не всі дані починаються з рядка 1, не кажучи вже про дані, які зазвичай є таблицями і мають рядок заголовка.

Я думаю, що ця функція повинна мати іншу змінну xFirstRow, щоб ви могли визначити перший рядок даних:
xFirstRow = Application.InputBox("Перший рядок", xTitleId, "", Тип:=1)

А формула має бути такою:
Для i = xFirstRow + xRow + 1 To xLastrow Step xRow

Сподіваємося, що ця функція буде оновлена ​​в наступних версіях.
Спасибі,
Туєн
There are no comments posted here yet

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

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