Вставте пустий рядок після кожного рядка в Excel (або кожного N -го рядка)

Подивіться відео - Вставте пусту рядок після кожного рядка в Excel

Люди, які працюють з великими наборами даних, часто потребують таких простих речей, як вставлення/видалення рядків або стовпців.

Хоча в Excel вже є багато різних (і простих) способів додавання рядків, коли справа доходить до вставлення порожнього рядка після кожного другого рядка (або кожного третього чи четвертого рядка), ситуація дещо ускладнюється.

Вставте порожній рядок після кожного іншого рядка

У цьому підручнику я покажу вам кілька дійсно простих способів вставити порожній рядок після кожного рядка в існуючому наборі даних (або кожного n -го рядка).

Оскільки немає прямого способу додавання рядків між рядками, метод, описаний у цій статті, є обхідними шляхами, щоб це сталося. І якщо вам подобається VBA, ви можете зробити це одним натисканням кнопки.

Використання допоміжного стовпця та функції сортування

Припустимо, у вас є набір даних, як показано нижче, і ви хочете вставити пробіл між існуючими рядками.

Нижче наведено кроки для вставлення порожніх рядків між існуючими рядками:

1. Вставте порожній стовпець зліва від набору даних. Для цього клацніть правою кнопкою миші на заголовку стовпця в крайньому лівому стовпці та натисніть Вставити.
2. Введіть текст "HelperColumn" у A1 (ви можете використовувати будь -який текст, який хочете)
3. Введіть 1 у клітинку A2 і 2 у клітинку A3.
4. Виділіть обидві клітинки та встановіть курсор у нижньому правому куті виділення. Коли курсор зміниться на значок плюса, двічі клацніть на ньому. Це заповнить весь стовпець збільшуючими числами
5. Перейдіть до останньої заповненої клітинки у стовпці -помічнику, а потім виберіть клітинку під нею.
6. Введіть 1 у цю клітинку та 2 у клітинку під нею
7. Виділіть обидві клітинки та встановіть курсор у нижньому правому куті виділення.
8. Коли курсор зміниться на значок плюса, натисніть і перетягніть його вниз. Це заповнить ряд чисел (так само, як ми отримали на кроці 3). Переконайтеся, що ви отримали більше чисел, ніж те, що є у наборі даних. Наприклад, якщо у наборі даних 10 записів, переконайтеся, що на цьому кроці заповнено принаймні 10 клітинок. Після того, як ваш набір даних буде виглядати, як показано нижче.
9. Виберіть весь набір даних (включаючи всі клітинки у стовпці -помічнику).
10. Перейдіть на вкладку Дані
11. Натисніть на опцію Сортувати
12. У діалоговому вікні Сортування використовуйте такі параметри:
    • Сортувати за: Помічник
    • Сортувати за: значення клітинки
    • Порядок: від найменшого до найбільшого
13. Натисніть OK. Це дасть вам набір даних, як показано нижче.
14. Видаліть стовпець -помічник.

Ви б помітили, що як тільки ви натискаєте «OK» у діалоговому вікні «Сортування», він миттєво змінює порядок рядків, і тепер у вас є пустий рядок після кожного рядка вашого набору даних.

Насправді це не є вставленням порожнього рядка. Цей метод сортування - це просто переставлення даних шляхом розміщення порожніх рядків знизу набору даних між рядками в наборі даних.

Ви також можете поширити цю ж логіку на вставляти порожній рядок після кожних двох рядків або кожних трьох рядків.

Припустимо, у вас є набір даних, як показано нижче, і ви хочете отримати порожній рядок після кожних двох рядків.

Нижче наведено кроки для цього.

1. Вставте порожній стовпець зліва від набору даних. Для цього клацніть правою кнопкою миші на заголовку стовпця в крайньому лівому стовпці та натисніть Вставити.
2. Введіть текст "HelperColumn" у A1 (ви можете використовувати будь -який текст, який хочете)
3. Введіть 1 у клітинку A2 і 2 у клітинку A3.
4. Виділіть обидві клітинки та встановіть курсор у нижньому правому куті виділення. Коли курсор зміниться на значок плюса, двічі клацніть на ньому. Це заповнить весь стовпець збільшуючими числами
5. Перейдіть до останньої заповненої клітинки у стовпці -помічнику, а потім виберіть клітинку під нею.
6. Введіть 2 у цю клітинку та 4 у клітинку під нею. Ми використовуємо числа, кратні 2, оскільки нам потрібен один порожній рядок після кожних двох рядків.
7. Виділіть обидві клітинки та встановіть курсор у нижньому правому куті виділення.
8. Коли курсор зміниться на значок плюса, натисніть і перетягніть його вниз. Це заповнить ряд чисел (так само, як ми отримали на кроці 3). Переконайтеся, що ви отримаєте число, більше, ніж те, що є у наборі даних. Наприклад, якщо у наборі даних 10 записів, переконайтеся, що ви отримаєте принаймні до числа 10.
9. Виберіть весь набір даних (включаючи всі клітинки у стовпці -помічнику).
10. Перейдіть на вкладку Дані
11. Натисніть на опцію Сортувати
12. У діалоговому вікні Сортування використовуйте такі параметри:
    • Сортувати за: Помічник
    • Сортувати за: значення клітинки
    • Порядок: від найменшого до найбільшого
13. Натисніть OK. Це дасть вам остаточний набір даних, як показано нижче (з порожнім рядком після кожного другого рядка набору даних)
14. Видаліть стовпець -помічник.

Аналогічно, якщо ви хочете вставити порожній рядок після кожного третього рядка, використовуйте цифри 3, 6, 9 тощо на кроці 5.

Використання простого коду VBA

Хоча вам потрібно багато обхідних шляхів, щоб вставити альтернативні порожні рядки в Excel, з VBA це всього лише шматок.

За допомогою простого коду VBA все, що вам потрібно зробити, це вибрати набір даних, у який ви хочете вставити порожній рядок після кожного рядка, і просто запустити код (займає один клік).

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

Sub InsertAlternateRows () 'Цей код буде вставляти рядок після кожного рядка у виділенні' Цей код був створений Sumit Bansal з trumpexcel.com Dim rng як діапазон Dim CountRow як ціле число Dim i як ціле число Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Виберіть Next i End Sub

Наведений вище код підраховує загальну кількість рядків у виділенні та використовує цикл For Next для обходу кожного рядка та вставлення порожнього рядка після кожного існуючого рядка в наборі даних.

Ось кроки для розміщення цього коду VBA у редакторі VB в Excel:

1. Скопіюйте наведений вище код
2. Перейдіть на вкладку Розробник і натисніть на опцію Visual Basic. Відкриється редактор VB. Ви також можете скористатися комбінацією клавіш ALT + F11
3. У редакторі VB клацніть правою кнопкою миші будь-який об’єкт у Провіднику проектів
4. Наведіть курсор на опцію Вставка, а потім натисніть на Модуль. Це додасть новий модуль
5. У вікні Код модуля вставте вищенаведений код.

Після того, як у вас є код у редакторі VB, тепер ви можете використовувати цей код для вставлення порожніх рядків після кожного другого рядка в наборі даних.

Нижче наведено кроки для використання коду для вставлення порожніх рядків після кожного рядка:

1. Виберіть весь набір даних (крім рядка заголовка)
2. Натисніть вкладку Розробник (якщо у вас немає вкладки Розробник, натисніть тут, щоб дізнатися, як її отримати)
3. Натисніть на опцію «Макроси»
4. У діалоговому вікні "Макрос" виберіть макрос - "InsertAlternateRows"
5. Натисніть Виконати

Це воно!

Вищезазначені кроки миттєво вставлятимуть послідовно порожні рядки в набір даних.

Існує багато різних способів запуску макросу в Excel. Наприклад, якщо вам доводиться це робити досить часто, ви можете додати цей макрос на панель швидкого доступу, щоб запустити його одним натисканням кнопки.

Детальніше про різні способи виконання макросів можна прочитати тут.

Якщо ви хочете вставити порожній рядок після кожного другого рядка, ви можете скористатися наведеним нижче кодом:

Sub InsertBlankRowAfterEvery2ndRow () 'Цей код буде вставляти рядок після кожного другого рядка у виділенні' Цей код був створений Sumit Bansal з trumpexcel.com Dim rng Як ​​діапазон Dim CountRow Як ціле число Dim i Як ціле число Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Виберіть Next i End Sub

Сподіваюся, цей підручник був вам корисним.