Перейти к основному содержанию

Как вставить разрывы страниц при изменении значения в Excel?

Предположим, у меня есть диапазон ячеек, и теперь я хочу вставить разрывы страниц в рабочий лист, когда значения в столбце A изменяются, как показано на скриншоте слева. Конечно, вы можете вставлять их по одному, но есть ли какие-нибудь быстрые способы вставить разрывы страниц сразу на основе измененных значений одного столбца?

Вставлять разрывы страниц при изменении значения с помощью кода VBA

Вставляйте разрывы страниц при изменении значения с помощью мощной функции


Вставлять разрывы страниц при изменении значения с помощью кода VBA

Следующий код VBA может помочь вам вставить разрывы страниц ниже в зависимости от изменения данных столбца, пожалуйста, сделайте следующее:

1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: вставлять разрывы страниц при изменении значения:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3, Затем нажмите F5 ключ для запуска этого кода, все разрывы страниц были вставлены в лист при изменении данных в столбце A. См. снимок экрана:

Примечание:В приведенном выше коде A - это заголовок столбца, на основе которого вы хотите вставить разрыв страницы, вы можете изменить его по своему усмотрению.

Вставляйте разрывы страниц при изменении значения с помощью мощной функции

Если вы только что Kutools for Excel, С его Различать различия вы можете быстро вставлять разрывы страниц, пустые строки, нижние границы или цвет фона в зависимости от изменения значения. Нажмите, чтобы загрузить Kutools for Excel!

Советы:Чтобы применить это Различать различия функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Нажмите Кутулс > Формат > Различать различия, см. снимок экрана:

2. В выскочившем Различать различия по ключевому столбцу диалоговом окне выполните следующие операции:

  • Выберите диапазон данных и ключевой столбец, который вы хотите использовать;
  • Выберите Разрыв страницы из Опции пунктом.

3. Затем нажмите Ok кнопки, разрывы страниц были вставлены в диапазон в зависимости от изменения значений, см. снимок экрана:

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Больше относительных статей:

  • Выделение строк при изменении значения ячейки в Excel
  • Если на вашем листе есть список повторяющихся значений, и вам нужно выделить строки на основе столбца A, значение ячейки которого изменяется, как показано на следующем снимке экрана. Фактически, вы можете быстро и легко завершить эту работу, используя функцию условного форматирования.
  • Увеличивайте числа при изменении значения в другом столбце
  • Предположим, у вас есть список значений в столбце A, и теперь вы хотите увеличить число на 1 в столбце B, когда значение в столбце A изменяется, что означает, что числа в столбце B увеличиваются до тех пор, пока значение в столбце A не изменится, затем приращение числа снова начинается с 1, как показано на скриншоте слева. В Excel вы можете решить эту задачу следующим образом.
  • Суммирование ячеек при изменении значения в другом столбце
  • Когда вы работаете с листом Excel, иногда вам может потребоваться суммировать ячейки на основе группы данных в другом столбце. Например, здесь я хочу просуммировать заказы в столбце B при изменении данных в столбце A, чтобы получить следующий результат. Как бы вы могли решить эту проблему в Excel?
  • Вставлять пустые строки при изменении значения в Excel
  • Предположим, у вас есть диапазон данных, и теперь вы хотите вставить пустые строки между данными при изменении значения, чтобы вы могли разделить последовательные одинаковые значения в одном столбце, как показано на следующих снимках экрана. В этой статье я расскажу о некоторых хитростях, которые помогут вам решить эту проблему.
  • Запуск макроса при изменении значения ячейки в Excel
  • Обычно в Excel мы можем нажать клавишу F5 или кнопку «Выполнить», чтобы выполнить код VBA. Но пробовали ли вы когда-нибудь запустить конкретный код макроса при изменении значения ячейки? В этой статье я расскажу о некоторых быстрых приемах, которые помогут справиться с этой задачей в Excel.

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour,

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 Step -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Next I

End Sub

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations