Як умовно вставити розриви сторінок в Excel?
Припустимо, вам потрібно вставити розриви сторінок, поки значення змінюються в стовпці А, як показано на знімку екрана, як ви могли б це впоратись у Excel? Як правило, ви можете вставляти розриви сторінок по одному вручну, але тут я представляю деякі трюки щодо швидкого вирішення цього.
Використання функції проміжних підсумків для вставки розривів сторінки
Використання коду VBA для вставки розривів сторінок
Розрізняйте відмінності для вставки розриву сторінки при зміні даних
Вставити розрив сторінки кожен рядок, щоб вставити розрив сторінки в n-ті рядки
Використання функції проміжних підсумків для вставки розривів сторінки
В Excel функція Проміжна сума може додавати розриви сторінок на основі групи.
1. Виберіть дані, до яких потрібно додати розриви сторінок, натисніть дані > Разом:.
2 В Разом: діалоговому вікні виберіть стовпець, до якого потрібно вставити розрив сторінки, виходячи з його значення. При кожній зміні в розкривному списку, потім виберіть функцію, з якої ви хочете використовувати Використовуйте функцію список, а потім перевірте Розрив сторінки між групами прапорець та інші параметри, як вам потрібно.
3. клацання OK. Тепер дані згруповано та додано розриви сторінок.
Використання коду VBA для вставки розривів сторінок
Якщо ви не хочете додавати групи до даних, ви можете спробувати код VBA для обробки цієї роботи.
1. прес Alt + F11 клавіші для відображення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, скопіюйте та вставте код нижче у нове вікно модуля.
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, тепер вставлені розриви сторінок.
Розрізняйте відмінності для вставки розриву сторінки при зміні даних
Команда Розрізнити відмінності особливість Kutools для Excel підтримує вставлення розриву сторінки, порожнього рядка, нижньої межі або кольору фону при зміні даних в Excel.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)
Натисніть Кутулс > сформований > Розрізнити відмінності.
2 В Розрізнити відмінності за ключовим стовпцем діалогове вікно, будь ласка, завершіть налаштування нижче:
1) натисніть значок вибору в Діапазон розділ, виберіть діапазон даних (крім заголовків стовпців)
2) натисніть значок вибору в Ключова колонка виберіть стовпець, у який потрібно вставити розрив сторінки на основі відповідної зміни даних (крім заголовків стовпців)
3) перевірити Розрив сторінки варіант в Опції .
3. клацання Ok.
Тепер розриви сторінок вставляються, коли дані змінюються у вибраному діапазоні.
Вставити розрив сторінки кожен рядок, щоб вставити розрив сторінки в n-ті рядки
Якщо ви хочете вставити розриви сторінок із фіксованим інтервалом, ви можете використовувати Kutools для ExcelАвтора Вставити сторінку в кожен рядок утиліта для швидкого вирішення проблеми.
після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)
1. Виберіть дані та натисніть Kutools Plus > друк > Вставити розрив сторінки кожного рядка.
2 В Вставити розрив сторінки кожного рядка діалогове вікно, введіть потрібний інтервал.
3. клацання OK > OK щоб закрити діалоги, розриви сторінок вставляються в кожні 2 рядки.
Вставити сторінку Розбити кожен N-й рядок
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!