Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як вставити розриви сторінок, коли значення змінюється в Excel?

Припустимо, у мене є ряд комірок, і тепер я хочу вставити розриви сторінок у аркуш, коли значення в стовпці А змінюються, як показано на лівому скріншоті. Звичайно, ви можете вставити їх по одному, але чи є швидкі способи вставити розриви сторінок відразу на основі змінених значень одного стовпця?

Вставити розриви сторінок, коли значення змінюється за допомогою коду VBA

Вставляти розриви сторінок, коли значення змінюється за допомогою потужної функції


Вставити розриви сторінок, коли значення змінюється за допомогою коду VBA

Наступний код VBA може допомогти вам вставити розриви сторінок нижче на основі зміни даних стовпців, будь-ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 - це заголовок стовпця, на основі якого ви хочете вставити розрив сторінки, ви можете змінити його відповідно до своїх потреб.

Вставляти розриви сторінок, коли значення змінюється за допомогою потужної функції

Якщо у вас є Kutools для Excel, З його Розрізняють відмінності Ви можете швидко вставити розриви сторінок, порожні рядки, лінії нижньої межі або колір фону на основі змін значення. Клацніть, щоб завантажити Kutools для Excel!

Порада:Щоб застосувати це Розрізняють відмінності По-перше, вам слід завантажити Kutools для Excel, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Кутулс > сформований > Розрізняють відмінності, див. скріншот:

2. В вискочив Розрізнити відмінності за ключовим стовпцем у діалоговому вікні виконайте такі операції:

  • Виберіть діапазон даних і ключовий стовпець, який ви хочете використовувати;
  • Вибирати Розрив сторінки від опції коробка

3. Потім натисніть Ok кнопки, розриви сторінок були вставлені в діапазон на основі змін значення див. скріншот:

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Більше відносних статей:

  • Виділяти рядки при зміні значення комірки в Excel
  • Якщо на вашому аркуші є список повторюваних значень, і вам потрібно виділити рядки на основі стовпця А, значення комірки яких змінюється, як показано на наступному знімку екрана. Насправді ви можете швидко і легко закінчити цю роботу за допомогою функції умовного форматування.
  • Збільшувати номери, коли значення змінюється в іншій колонці
  • Припустимо, у вас є список значень у стовпці A, і тепер ви хочете збільшити число на 1 у стовпці B, коли значення в стовпці A змінюється, що означає, що числа в стовпці B зростають, поки значення в стовпці A не зміниться, тоді збільшення числа починається з 1, як показано на лівому скріншоті. В Excel ви можете вирішити цю роботу за допомогою наступного методу.
  • Суми клітинок, коли значення змінюється в іншій колонці
  • Коли ви працюєте на аркуші Excel, іноді вам може знадобитися підсумувати комірки на основі групи даних в іншому стовпці. Наприклад, тут я хочу підсумувати замовлення у стовпці B, коли дані змінюються в стовпці A, щоб отримати такий результат. Як ви могли вирішити цю проблему в Excel?
  • Вставляйте порожні рядки при зміні значення в Excel
  • Припустимо, у вас є діапазон даних, і тепер ви хочете вставити порожні рядки між даними, коли значення змінюється, щоб ви могли відокремити послідовні однакові значення в одному стовпці, як показано на наступних скріншотах. У цій статті я розповім про деякі трюки для вирішення цієї проблеми.
  • Запустіть макрос, коли значення комірки змінюється в Excel
  • Зазвичай в Excel ми можемо натиснути клавішу F5 або кнопку Виконати, щоб виконати код VBA. Але чи пробували ви коли-небудь запускати конкретний код макросу, коли змінюється значення комірки? У цій статті я представив декілька швидких прийомів для вирішення цієї роботи в Excel.

Найкращі інструменти для підвищення продуктивності офісу

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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Wilco · 1 years ago
    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.
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      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!
  • To post as a guest, your comment is unpublished.
    Mike MItsch · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    GUEST · 3 years ago
    Sorry. EDIT: The first ROW is a column header.
  • To post as a guest, your comment is unpublished.
    GUEST · 3 years ago
    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.