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