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

Как вставить разрывы страниц при изменении значения в 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет спасибо! Мысль о VBA заставляет меня потеть. Однако у меня есть одна проблема с результатами этого кода. Первый столбец является заголовком столбца. Код рассматривает это как изменение. Моя первая страница показывает только заголовок столбца, но следующие страницы в порядке. К вашему сведению: это для ежемесячного отчета, и количество строк для каждого критерия меняется ежемесячно. Любые идеи? Заранее спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Извини. РЕДАКТИРОВАТЬ: первая строка является заголовком столбца.
Этот комментарий был сведен к минимуму модератором на сайте
Это действительно гениально! Я последовал вашему примеру VB, и это сработало! Я также являюсь владельцем KUTools, поэтому я тоже буду играть с ним.

Очень впечатлен и спасибо!

Майк
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли пропустить первые 20 строк листа? Если я пробовал всевозможные вещи, но мои знания VBA ограничены тем, что я сам корректировал код.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Вилко,
Чтобы вставить разрыв страницы, но пропустить первые 20 строк, вам просто нужно изменить один параметр, как показано ниже:

Sub вставка разрывов страниц ()

'updateby Extendoffice

Dim I до тех пор, J до тех пор, пока

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

Для I = J To 21 Шаг -1

Если Диапазон("A" & I).Значение <> Диапазон("A" & I - 1).Значение Тогда

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

End If

Далее я

End Sub

Пожалуйста, попробуйте, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Tôi không muốn ngắt trang tại nhung hàng bị ẩn. Тхи Пхи Лам Сан?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ле Туан
Чтобы решить вашу проблему, примените приведенный ниже код VBA:
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


Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Привет,

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 changement dans le code ?

Merci Ьеаисоир!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL