Как добавить пустую строку в excel после каждой заполненной строки

Добавление строк в excel по условию

Вставить одну, пять или десять пустых строк в Excel не составляет труда. А с помощью надстройки можно быстро вставить большое количество строк на лист Excel, а также добавлять строки по различным условиям.

Описание работы

Иногда необходимо вставлять большое количество пустых строк по различным условиям и в ручную этот процесс занимает много времени. Для упрощения данного процесса в функционал надстройки добавлена функция «Вставить пустые строки».

Чтобы воспользоваться функцией перейдите на вкладку «VBA-Excel» в разделе «Ячейки и диапазоны» откройте меню «Вставить», выберите «Вставить пустые строки».

Вставка пустых строк

Появится диалоговое окно с выбором опций для вставки строк. Необходимо выбрать опции в соответствии с тем какая стоит задача.

Вставка произвольного количества строк

Для этого в поле «Условие» необходимо выбрать пункт «Вставить N пустых строк»
Для того что бы указать в какую строку вставлять пустые строки нужно в поле «Начиная со строки» указать номер нужной строки.
Это можно сделать двумя способами:

Вручную ввести номер строки.
Нажать кнопку «…» расположенную рядом с полем «Начиная со строки», после чего откроется окно выбора строки. Далее нужно выбрать любую ячейку находящуюся в нужной строку и нажать «Ок»

После чего в поле Количество указать сколько пустых строк нужно вставить. И нажать кнопку «Ок»

Например, нужно вставить 5 пустых строк с 7 строки. тогда ввод в диалоговое окно будет выглядеть следующим образом:

Настройки для вставки n строк в Excel

Результат вставки пустых строк

Вставка строк через заданное количество строк

Для этого в поле «Условие» должно быть выбрано «Вставлять через каждые N строк».
В данном режиме нужное количество строк вставляется через равные промежутки в пределах, указанных в поле «Диапазон»
В поле «Диапазон» можно указать «Текущий лист» или «Выделение».

В первом случае вставляются пустые строки с первой строки до последней, в которой есть какие-либо значения.
Во втором пустые строки вставляются только в рамках текущего выделения.

Как и в первом режиме нужно указать строку, с которой начнет работать алгоритм и количество пустых строк
А в поле «Вставлять через» указывается сколько строк будет пропускаться при вставке следующих пустых строк.

Например, нужно вставить 2 пустые строки через каждые 2 строки, начиная с 6 строки, тогда диалоговое окно примет следующий вид:

Вставка строк через несколько строк

Результат вставки строк через две строки

Вставка строк при изменении значения в столбце

Для этого в поле «Условие» должно быть выбрано «Вставлять по изменению значения в столбце»

В этом режиме пустые строки вставляются в том случае если в выбранном столбце меняется значение.

Для указания столбца, по которому просматриваются значения, нужно в поле «Столбец» ввести имя столбца. Это можно сделать двумя способами:

Вручную ввести имя столбца
Нажать кнопку «…» расположенную рядом с полем «Столбец», после чего откроется окно выбора столбца. Далее нужно выбрать любую ячейку находящуюся в нужном столбце и нажать «Ок»

Например, вам нужно отделить каждый новый артикул в столбце А пустой строкой. Тогда диалоговое окно примет вид:

Вставка строк в Excel при изменении значения в столбце

Результат вставки строк по изменению значения в столбце

Вставка строк при определенном значении в столбце

Для этого в поле «Условие» должно быть выбрано «Вставлять по значению в столбце».

В этом случае вставка пустых строк происходит по совпадению значения выбранного столбца со значением указанным в поле «Значение».

Например, нужно вставить пустые строки там, где в столбце «Флаг» находится значение «f». В этом случае выбираем следующие настройки:

Вставка строк по значению в столбце

Надстройка
VBA-Excel

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

Вставьте одну или несколько строк, столбцов или ячеек в Excel для Mac

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

Вставка строк

Выделите заголовок строки, над которой хотите вставить новые строки.

Совет: Выделите столько же строк, сколько нужно вставить. Например, чтобы вставить пять пустых строк, выделите пять строк. Выделяемые строки могут содержать данные, поскольку новые строки будут вставлены над ними.

Совет: Сведения о вставке строк, содержащих данные, см. в статье Копирование и вставка определенного содержимого ячейки.

Вставка столбцов

Выделите заголовок столбца, справа от которого хотите вставить новые столбцы.

Совет: Выделите столько же столбцов, сколько нужно вставить. Например чтобы вставить пять пустых столбцов, выделите пять столбцов. Выделяемые столбцы могут содержать данные, поскольку новые столбцы будут вставлены слева от них.

Совет: Сведения о вставке столбцов, содержащих данные, см. в статье Копирование и вставка определенного содержимого ячейки.

Вставка ячеек

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

Совет: Выделите столько же ячеек, сколько нужно вставить. Например, чтобы вставить пять пустых ячеек, выделите пять ячеек.

Удерживая нажатой клавишу CONTROL, щелкните выделенные ячейки, а затем во всплывающем меню выберите команду Вставить.

В меню Вставка укажите, нужно ли сдвинуть выделенные ячейки вниз или вправо относительно новых. Вот что произойдет, когда вы сдвинете ячейки влево: Вставить ячейки (со сдвигом вправо)

Вот что произойдет, когда вы сдвинете ячейки вниз: Вставить ячейки (со сдвигом вниз)

Совет: Сведения о вставке ячеек, содержащих данные, см. в статье Копирование и вставка определенного содержимого ячейки.

После каждой заполненной ячейки столбца вставлять пустую строку

Может кто написать макрос для MS Excel, чтобы после каждой заполненной ячейки столбца А вставлялась пустая строка фиксированного размера и после каждого второго столбца в листе книги вставлялся столбец фиксированного размера?

Пример конечного варианта — в прикреплённом к теме файла. Всё в таком духе — страничное разделение и каждая страница будет заполнена таким образом.

Спасибо, если кто поможет или подскажет, как это возможно реализовать по-другому.

Вложения

New Лист Microsoft Excel.xlsx (8.9 Кб, 15 просмотров)

Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Вставить пустую строку после изменившейся
подскажите пожалуйста. в VBA не шарю. Как пробежаться по всем строкам на листе и если на данной.

VBA: Сократить текст каждой ячейки столбца Excel
Здравствуйте, В столбце А выбираю из выпадающего списка (А-тест, А1-тест/тест.

Ячейки столбца расположить в строку
Подскажите, пожалуйста. Есть две колонки, в первой число, во второй текст (см. картинку слева).

После каждой 2 Буквы вставлять строку символов MAU
С++ Ввести строку символов.И После каждой 2 Буквы ( Вставлять MAU ) Немного поправлю * И После.

6078 / 1322 / 195
Регистрация: 12.12.2012
Сообщений: 1,023

Лучший ответ

Сообщение было отмечено как решение

Решение

Здравствуйте, fernas,

Посмотрите, не подойдет ли вам такая программа?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

'Процедура вставляет строки и столбцы фиксированного размера, 'после заданного количества строк/столбцов. Sub InsertingRowsColumns() Const AFTER_NROWS As Long = 1 'Новая строка будет после каждых AFTER_NROWS строк. Const AFTER_NCOLS As Long = 2 'Новый столбец - после каждых AFTER_NCOLS столбцов. Const RHEIGHT As Byte = 3 'Высота новой строки будет равна RHEIGHT пикселям. Const CWIDTH As Byte = 3 'Ширина нового столбца будет равна CWIDTH пикселям. Dim k As Byte, i As Long, n As Long Application.ScreenUpdating = False With ActiveSheet.UsedRange 'Вставка - только в пределах используемого диапазона. For k = 0 To 1 'При k = 0 обрабатываем строки, при k = 1 - столбцы. If IIf(k, AFTER_NCOLS, AFTER_NROWS) > 0 Then With IIf(k, .Columns, .Rows) i = 0 n = .Count While i < n i = i + IIf(k, AFTER_NCOLS, AFTER_NROWS) + 1 .Item(i).Insert 'Вставка новой строки/столбца. If k Then 'Задание размера новой строки/столбца. .Item(i).ColumnWidth = CWIDTH * 0.06 Else .Item(i).RowHeight = RHEIGHT * 0.75 End If n = n + 1 Wend End With End If Next k End With Application.ScreenUpdating = True End Sub