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 для 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (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
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця