Как вставить пустую строку в excel между всеми строками

Вставить пустые строки в Excel через одну.

​Смотрите также​​myActiveColumn = ActiveCell.Column​ ​ совпадают.​ ​myLastRow = Cells(Rows.Count,​​Rows(i).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​​И, наконец, чтобы ввести​ обращениями к диапазону.​ = i +​ «после», а то​ ks, k1 As​s = s​Есть файл с​ выделено. Порядок столбцов​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ОСТАТ(СТРОКА();3);»»;ИНДЕКС(C$3:C$11;СТРОКА()/3))​kreg​ его, а затем​ставить пустые строки в​
​Рассмотрим несколько вариантов,​
​myLastRow = Cells(Rows.Count,​ ​If tblMy(i, 1)​​ ActiveCell.Column).End(xlUp).Row​
​End If​ эту формулу во​
​ Можно добавить в​ 2 Loop End​ часто бывает, что​ Long​ & «,» &​ промеченными группами строк:​ вставки, так же​ASUS​: А как сделать​
​ на вкладке​Excel через одну.​как​ myActiveColumn).End(xlUp).Row​ <> tblMy(i -​’Берём в VBA-таблицу​metka:​ все выделенные (пустые)​
​ цикл строку DoEvents​ ​ Sub ‘Удаляем Sub​​ вопрос далеко не​
​Dim x As​ i & «:»​Столбец 1 Столбец​ зависит от порядка​: Привет всем.Есть таблица​ так что-бы строки​
​Главная​Нам нужно вставить​вставить пустые строки в​’Берём в VBA-таблицу​ 1, 1) Then​
​ «tblMy» данные из​Next i​ ячейки нажимаем​ и пойти пить​ DeleteRows() Dim i​ полностью соответствует реальному​ Long​ & i​ 2​
​ их выделения. Например,​
​ со строками идущей​ ​ добавлялись не во​
​нажмите кнопку​ пустые строки в​Excel через одну​ «tblMy» данные из​’Вставка двух пустых​ двух столбцов.​
​Application.ScreenUpdating = True​Ctrl + Enter​ чай, либо пройти​
​ As Long: i​ положению вещей…​With Application​
​Next​Какое-то слово 1​ через одну и​ подряд. Как добавить​ всем документе, а​
​Вставить​ ​ несколько столбцов таблицы,​​,​
​ двух столбцов.​ строк между группами.​tblMy() = Cells(1,​End Sub​вместо обычного Enter.​ по ссылке, которую​
​ = 200 ‘200​
​anddrei55​
​.ScreenUpdating = False​​s = Mid(s,​ ​Какое-то слово 1​
​ т.п.​ формулой между этими​ только в выбранном​и выберите пункт​ на всю ширину​две строки, ячейки,​tblMy() = Cells(1,​Rows(i).Resize(2).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​ ActiveCell.Column).Resize(myLastRow, 2).Value​SergeyKorotun​
​ И все! Просто​ дал mtts54 выше​ — количество проверяемых​: Файл-пример прикрепил, смотреть​
​.Calculation = xlCalculationManual​ 2, 99999)​Какое-то слово 1​Теперь добавим в прайс-лист​ строками один пустую​ диапазоне.​​Удалить столбцы с листа​ таблицы, т.д. Сначала​ т.д. Бывает, в​ myActiveColumn).Resize(myLastRow, 2).Value​’Делаем границу между​For i =​: Работает, но ожидал​ и красиво.​ в посте #14,​ строк Do While​ по вкладкам.​nRow = Cells(Rows.Count,​Range(s).Insert​
​Какое-то слово 2​ заголовок и новую​ строку. Приложу файл​Hugo​.​ напишем формулу как​ большой заполненной таблице,​’Двигаемся до третьей​ двумя вставленными​ UBound(tblMy, 1) To​ другую реализацию, за​
​В качестве завершающего мазка​ — там варианты​ i > 0​Z​ 1).End(xlUp).Row​End Sub​Какое-то слово 2​ позицию товара «Товар​ чтобы была понятно.​: А так правильней​Можно также щелкнуть правой​ во втором варианте.​ нужно вставить пустые​ строки, т.к. в​’пустыми строками.​ 2 Step -1​
​ один проход. Недостаток​ я советовал бы​ оптимизированных макросов, рассчитанных​ If IsEmpty(Cells(i, 1))​: А по-простому -​’Range(Cells(2, 20), Cells(Cells(Rows.Count,​Ярослав​Какое-то слово 2​ новинка». Для этого​ Заранее спасибо за​ будет (и на​

excel-office.ru

Как вставлять и удалять ячейки, строки и столбцы

​ кнопкой мыши в​ Затем, скопируем эту​ строки между каждой​ первой строке​

​With Rows(i).Borders(xlEdgeBottom)​​’Если данные в​ в том, что​ заменить все созданные​ на большие объёмы​ Then Cells(i, 1).EntireRow.Delete​ отсортировать, выделить да​ 1).End(xlUp).Row + 1,​

Вставка и удаление столбца

1. ​: Sub Макрос3()​Какое-то слово 2​ вставим две новых​​ предоставленный ответ.​​ 2 умножать не​​ верхней части столбца​​ формулу вправо на​​ строкой таблицы. Вручную​​’находится заголовок и​

2. ​.LineStyle = xlDash​ первом столбце в​ если добавится еще​​ формулы на значения,​​ данных.​​ i = i​​ грохнуть «пустоту» -​​ 20))​​’​

   ​Какое-то слово 3​ строки одновременно.​_Boroda_​ надо, да и​​ и выбрать команду​​ нужное количество столбцов.​​ это сделать сложно,​​ вторую строку​

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

1. ​.Weight = xlMedium​ текущей строке и​ одна подгруппа по​​ ибо при сортировке​​anddrei55​​ — 1 Loop​​ «Ctrl+-«?..​​kv = InputBox(«Введите​​’ Макрос3 Макрос​

2. ​Какое-то слово 3​Выделите несмежный диапазон двух​: Читайте Правила форума.​​ можно iLastRow привлечь):​​Вставить​​Например, в нашей​​ долго. Но, Excel,​​’не нужно сравнивать​​End With​

   ​ строке,​ третьему столбцу, макрос​ или добавлении/удалении строк​: но я там​​ End Sub​​abricos29​​ количество строк для​​’ Макрос записан​

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

1. ​В первом столбце​ ячеек A1;A4(обратите внимание​ Пункты 4 и​For i =​​или​​ таблице два столбца.​

2. ​ опять, дает нам​​ с первой.​​’Делаем заголовок у​’которая выше, не​ придется не немного​

support.office.com

Добавление пустых строк между заполненных

​ корректность формул может​​ увидел код только​
​anddrei55​: Я не так​ вставки между строками»,​
​ 13.09.2008 (zyaa)​ — текст, во​ вместо символа «:»​ 5q в особенности.​ 100 To 2​Удалить​ Мы копируем формулу​
​ возможность быстро вставить​For i =​ нижней группы.​ совпадают.​

​.​​ в ячейку D1.​ нужное количество строк​ UBound(tblMy, 1) To​

​Cells(i + 1,​​If tblMy(i, 1)​ третий блок, в​ все ячейки в​ строк, а быстрого​ огромное выручили, этого​

​ задачу, нашёл такое​​ks = InputBox(«Введите​ пустых строк вниз​

​ номер группы. Нужно​​ — это значит,​

​Создавая разного рода новые​​Cells(i, 1).EntireRow.Insert​Чтобы вставить строку, выделите​Теперь выделяем ячейки​ в нужном месте.​ 3 Step -1​ myActiveColumn).Value = «Шапка​

​Next i​​ ее, а затем​ C1 и D1​Первый вариант.​
​’Если данные в​
​ группы»​ 1, 1) Then​

​ возрастет.​​ и тут же​Irregular Expression​Jack Famous​ на форуме :​
​ 1)​

​ ячейки​​ пустых строки после​ диапазона, для убедительности​ прайсы, нельзя заранее​roka​

​ на вкладке​​ и копируем (протягиваем)​Вставить пустые строки в​ первом столбце в​

planetaexcel.ru

Вставить заданное количество пустых ячеек через строку (Иное)

​’Если данные во​​Rows(i).Resize(2).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​Совсем не знаю​ вставьте обратно с​: anddrei55, значит, придётся​: anddrei55, а мой​ Sub УдалениеСтрок() Dim​k1 = InputBox(«Введите​’ Сочетание клавиш:​ каждой группы. Как​ введите A1;A4 в​ предвидеть количество необходимых​: еще как вариант,​Главная​ их вниз до​Excel через одну​ текущей строке и​ втором столбце в​

​With Rows(i).Borders(xlEdgeBottom)​​ VBА, но из​ помощью​ создать отдельную тему​ вариант чем не​
​ r As Long,​ первую строку», ,​​ Ctrl+я​

​ это можно сделать​​ поле имя и​
​ строк и столбцов.​ перейти на нужное​нажмите кнопку​
​ конца таблицы. Получится​

​.​​ строке,​ текущей строке и​.LineStyle = xlDash​ вашего кода вижу​Специальной вставки (Paste Special)​.​ подошёл?​

​ Rng As Range​​ 1)​’​ максимально простым путем?​ нажмите Enter). Как​ Использование программы Excel​

​ место и сделать​​Вставить​ так.​

​У нас такая​​’которая выше, не​ строке,​.Weight = xlMedium​

​ что логические операции​​в контекстом меню,​
​А в качестве​

​mtts54​​ For r =​kv1 = Val(kv)​k = 10​OLEGOFF​ выделять несмежные диапазоны​ – это в​ActiveCell.Resize(i).EntireRow.Insert​и выберите пункт​Таблицу Excel можно​

​ таблица.​​ совпадают.​’которая выше, не​End With​
​ поддерживаются.​

excelworld.ru

Как вставить строку или столбец в Excel между строками и столбцами

​ выбрав параметр​ идеи, в каком​: ,​ 1 To ActiveSheet.UsedRange.Row​ks1 = Val(ks)​ ‘ кол-во вставок​: Sortafreel,попробуйте такой макрос.​ вы уже знаете​ значительной степени создание​где i необходимое​Вставить строки на лист​ настроить так, что​

​Если таблица не большая,​If tblMy(i, 1)​ совпадают.​’Если данные во​

​На каком то​Значения (Values)​ направлении двигаться, могу​нарисовал серию великолепных​ — 1 +​sh = kv1​ пустых строк​Выделяете столбец и​ из предыдущих уроков.​ и настройка таблиц,​ количество строк​.​ будут автоматически сделаны​ то можно сделать​

Как в Excel вставить столбец между столбцами?

​ <> tblMy(i -​ElseIf tblMy(i, 2)​ втором столбце в​

​ несуществующем языке полупрограмму-полуалгоритм​. Так будет совсем​ предложить работать не​ кодов, работающих с​ ActiveSheet.UsedRange.Rows.Count If Application.CountA(Rows(r))​

1. ​ + ks1​For i =​ три раза жмете​Теперь снова используйте инструмент​ в процессе которой​Igor67​Чтобы удалить строку, выделите​ разделительные линии между​ так. Выделяем, при​
2. ​ 1, 1) Then​ <> tblMy(i -​ текущей строке и​ вижу так:​ хорошо.​

​ с листом и​ большой скоростью и​ = 0 Then​

​For i =​

Вставка нескольких столбцов между столбцами одновременно

​ 1 To k​ на кнопку​ «Главная»-«Вставка»-«Вставить строки на​ требуется вставка и​: А я бы​ ее, а затем​ строками, например, по​ нажатой клавише «Ctrl»,​’Вставка трёх пустых​ 1, 2) Then​ строке,​200?’200px’:»+(this.scrollHeight+5)+’px’);»>go bottom //стать на​SergeyKorotun​

​ строками, а с​ с разными условиями​ If Rng Is​ ks To nRow​m = 1​

​Сергей1985​ лист». На рисунке​ удаление различных элементов.​ это понял (для​ на вкладке​ датам, по ценам,​ все строки, под​ строк между группами.​Rows(i).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​’которая выше, не​ последнюю строку​

Как вставить строку в Excel между строками?

​: присоединил​ массивом, т.е. загружаете​ удаления строк,​ Nothing Then Set​ Step sh​For j =​

​: Имеется таблица из​ видно как вставить​Сначала рассмотрим способы вставки​ диапазона) как вставка​Главная​ т.д. Подробнее о​ которыми нужно вставить​Rows(i).Resize(3).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​End If​ совпадают.​st_1=A1 // присвоить​Скрипт​ свою таблицу с​

​в т.ч пустых,​ Rng = Rows(r)​If kv >​ 1 To m​ двадцати строк. Необходимо​ пустую строку в​

​ строк и столбцов​ ячеек:))​нажмите кнопку​ таком способе визуализации​ пустую строку (каждую​’Делаем границу между​Next i​ElseIf tblMy(i, 2)​

​ значение ячейки колонки​:​ лишними строками в​ по значению в​ Else Set Rng​

​ 1 Then​ActiveCell.Offset(j, 0).Select​ вставить по две​

Удаление строк и столбцов

​ Excel между строками.​ листа при создании​Cells(i, 1).EntireRow.Insert Shift:=xlDown​Вставить​ данных в таблице,​ строку отдельно, не​

​ двумя вставленными​Application.ScreenUpdating = True​ <> tblMy(i -​ А1 последней строки​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Procedure_1()​

​ массив, очищаете диапазон,​ ячейке и с​ = Union(Rng, Rows(r))​For x =​Selection.EntireRow.Insert​ пустых строки под​Несложно догадаться о втором​ таблиц.​

​я​и выберите пункт​ читайте в статье​ все вместе).​’пустыми строками.​End Sub​ 1, 2) Then​st_2=A2 // присвоить​Dim tblA() As​

​ обрабатываете массив до​ поддержкой * (любые​ End If Next​ 1 To kv​ActiveCell.Offset(j, 0).Select​

​ каждой существующей (то​ способе. Нужно выделить​Обратите внимание, в данном​: Ребята, а если​Удалить строки с листа​ «Разделительная линия строк​Когда выделим все​With Rows(i).Borders(xlEdgeBottom)​SergeyKorotun​Rows(i).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​ значение ячейки колонки​ Variant​ нужного вида и​

exceltable.com

Добавить пустые строки после каждой группы строк

​ символы).​​ r If Not​
​ Step 1​Selection.EntireRow.Insert​
​ есть должно получиться​ заголовки строк 1​
​ уроке указываются горячие​
​ нужно вставлять по​
​.​
​ в таблице Excel»​
​ нужные строки, отпускаем​
​.LineStyle = xlDash​
​: Немного не так.​
​End If​
​ А2 последней строки​
​Dim myLastRow As​ пишем его обратно​См., например:​ Rng Is Nothing​Cells(i + 1,​Next j​ не 20, а​ и 3. Кликнуть​ клавиши для добавления​

​ 45 строк, помогите​​Можно также щелкнуть правой​
​ здесь.​ клавишу «Ctrl». Нажимаем​.Weight = xlMedium​

CyberForum.ru

Вставка строки через строку

​ Вставляться должно не​​Next i​do while not​ Long​ в лист. Количество​Jack Famous​ Then Rng.Delete End​ 1).EntireRow.Insert​ActiveCell.Offset(1, 0).Select​ 60 строк таблицы,​ правой кнопкой по​ или удаления строк​ неумехе​ кнопкой мыши выделенную​

​Можно вставить в​​ на выделенную строку​End With​
​ «шапка группы», а​
​Application.ScreenUpdating = True​
​ bof() // цикл​

​Dim i As​​ строк макроса увеличится​: mtts54, благодарю​

​ Sub​​Next x​Next i​

​anddrei55​​mtts54​End If​End Sub​ первая строка, а​ строк и выбрать​ надо использовать после​: Как сделать чтоб​

​ опцию «Вставить».​​ выделения целой строки​
​ вставлялось по 2​
​Вставить​ формулы, написать любые​ функцию «Вставить» -​
​’Копируем заголовок из​ в которой подписаны​
​: Завтра девки мне​skip -1// подняться​’———————————————————————————————​ выполнения для 10000​
​ процесс? Если добавлять​
​ запрос: «удалить строки​.Calculation = xlCalculationAutomatic​
​: Мне тоже самое​
​ третья были бы​

​Чтобы добавить строку или​​ или столбца. Чтобы​
​ пустые строчки?​
​или​
​ данные. Затем, скрыть​ «Строку». Получится так.​
​ первой строки Excel-листа.​ наименования столбцов. В​ скажут спасибо, а​ на одну строку​
​’ГРУППИРОВКА ПО ПЕРВОМУ​ строк упадёт до​
​ 10000 пустых строк,​
​ по условию» или​.ScreenUpdating = True​ нужно сделать, только​
​ пустыми) Спасибо​ столбец в Excel​
​ выделить строку на​
​Lunatic​Удалить​
​ эти столбцы, строки​
​Добавить пустые столбцы в​
​’Копировать нужно, т.к.​
​ прикрепленном файле на​
​ я вам +​
​ вверх​
​ СТОЛБЦУ.​
​ нескольких секунд или​

​SergeyKorotun​​ в текущей строке​ ActiveCell.Column).End(xlUp).Row​ 90% времени пожирается​Как ускорить процесс​
​: anddrei55, проверяйтеКод из​ vbInformation, «Вставка строк»​ строку после диапазона​

planetaexcel.ru

Удаление пустых строк после каждой заполненной

​ Dim lr&, i&,​​Нашел на форуме​
​ до n (где,​Guest​В процессе работы с​ прайс, в котором​
​ пустых строк в​
​.​ можно установить ссылку​ меню выбираем функцию​ втором столбце в​ только в первый​ ними вставлять еще​здесь после текущей​
​ ActiveCell.Column).Resize(myLastRow, 1).Value​ работы с данными​ As Range Dim​ colDel%, colFull% colDel​ тему, как добавить​ n последняя не​

​: или a.offset(1,0).rows.insert не​​ Excel, удалять строки​
​ недостает нумерации позиций:​ диапазон через каждую​В окне​
​ на конкретную ячейку​ «Вставить столбец».​ текущей строке и​ столбец, участвующий в​ и первую строку,​
​ строки вставляем две​For i =​

​ (фильтрации, сортировки, подведения​​ d As Range​ = Application.InputBox(«Укажите ячейку​ пустую строку после​ пустая строка). Если​ помню точно​

​ и столбцы листа​​Чтобы вставить столбец между​ заполненную строку, т.е.​Вставка​ в таблице на​Как настроить таблицу, чтобы​
​ строке,​ группировке, но еще​ чтобы в каждой​

​ строки с разделителем​​ UBound(tblA, 1) To​ итогов и т.д.)​ Dim k As​ СТОЛБЦА, по которому​ каждой заполненной.​ ячейка А(k) объединена​Влад​ приходится не реже​

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

​ другом листе. Например,​​ столбец добавлялся автоматически,​’которая выше, не​ и на строку​ группы была своя​

​ из пунктирной линии​​ 2 Step -1​ нужен непрерывный список,​ Integer Dim p​ определять пустые ячейки:»,​Вот код:​ с ячейкой А(k+1),​: Отличный способ надолго​ чем вставлять. Поэтому​ номеров позиций прайс-листа,​ Большая просьба ,​ или ячейку для​ у нас таблица​ читайте в статье​ совпадают.​ с шапкой. Но​ шапка​skip -1//​If tblA(i, 1)​ т.е. таблица без​ As Boolean p​ «Выбрать ОДНУ ячейку»,​Sub InsertRows() Dim​ то смотрим объединена​

​ зациклить макрос:)​​ стоит попрактиковаться.​ можно воспользоваться одним​ только понятным языком.​ вставки.​

​ со списком заказов​​ «Как добавить столбец​ElseIf tblMy(i, 2)​ параметр цикла можно​Скрипт​skip -1//возврат на​ <> tblA(i -​ разрывов (пустых строк​ = True Application.ScreenUpdating​ , Type:=8).Column colFull​ i As Long​ ли она со​Jom​Для наглядного примера удалим​ из двух способов:​ если вообще возможно​Beldiver​ от разных заказчиков.​ в Excel автоматически».​ <> tblMy(i -​ оставить и 1,​:​ текущую строку, в​ 1, 1) Then​ и ячеек -​ = False Application.Calculation​ = Application.InputBox(«Укажите ячейку​ For i =​ следующей итп, если​: +1. пока до​ из нашего прайс-листа​Перейдите курсором и активируйте​ , то без​: Вопрос, такого характера.​ Чтобы найти контактные​Если нужно вставить​ 1, 2) Then​

​ лишнюю первую шапку​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Procedure_1()​ VBA не надо,​Rows(i).Resize(2).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​ по возможности). На​ = xlCalculationManual Do​ СТОЛБЦА, по которому​
​ 2 To 200​ нет то заполняем​ строки 65535 не​ нумерацию позиций товара​ ячейку A1. Потом​ всяких там макросов.​Как в exele​ данные по конкретному​ несколько строк или​Rows(i).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow​ можно удалить вручную.​Dim tblMy() As​ так как обрабатывается​With Rows(i).Borders(xlEdgeBottom)​ практике же часто​ While p p​ определять последнюю строку:»,​ Step 2 Cells(i,​ ее номером и​ дойдет.​ и столбец единиц​ перейдите на закладку​ очень нужно для​ добавить пустые строки​

​ заказчику, достаточно нажать​​ столбцов не во​End If​Скрипт​

​ Variant​​ массив​.LineStyle = xlDash​ мы имеем как​

​ = False Set​​ «Выбрать ОДНУ ячейку»,​
​ 1).EntireRow.Insert Next i​ вставляем после нее​как вариант.​ измерения – одновременно.​ «Главная» раздел инструментов​
​ работы !​ между заполнеными?​ на ссылку. Excel​ всей таблице, то​Next i​
​: SergeyKorotun, на Excel-листе​

​Dim myLastRow As​​endif​

​.Weight = xlMedium​​ раз таблицы с​ d = Nothing​ , Type:=8).Column lr​ End Sub​ пустую строку (ну​
​yfirst =20​Выделяем несмежный диапазон ячеек​ «Ячейки» кликните по​
​Serge_007​То есть, есть​ перейдет в другую​ можно использовать другие​Application.ScreenUpdating = True​ в первой строке​ Long​if st_1=a1and st_2<>a2​End With​ пропущенными пустыми ячейками​ Intersect(Selection, ActiveSheet.UsedRange).Select For​ = Cells(Rows.Count, colFull).End(xlUp).Row​А как прописать​ или строки в​ylast =60​ A1;D1 и выбираем​ инструменту «Вставить» из​: Без макросов вставить​ список с 100​ таблицу на другом​ способы. Смотрите об​End Sub​ есть заголовок.​Dim myActiveColumn As​ // перехода через​End If​ — например после​ Each ch In​ Set gr =​ макрос на обратное​ другой части вставить…)​for y= yfirst​ «Главная»-«Удалить»-«Удалить столбцы с​ выпадающего списка выберите​ пустые строки в​ строками, как автоматически​ листе именно на​ этом статью «Как​
​SergeyKorotun​Есть два варианта​ Long​ группу нет, ачерез​Next i​ копирования результатов сводных​ Selection If ch.Value​ Nothing For i​

​ действие, чтоб удалить​​наверное это сложно,​ to ylast step​ листа». Контекстным меню​ опцию «Вставить столбцы​ исходные данные -​ после каждой строчки​ строку этого заказчика.​ добавить строку, столбец​:​ вставки этого заголовка​Dim i As​ подгруппу есть​’———————————————————————————————​ таблиц или выгрузок​ = 0 Then​

​ = lr To​​ пустые строки после​ раз мне никто​ 3​ так же можно​ на лист».​

​ только вручную​​ добавить пустую? Чтоб​Можно применить такие​​ в Excel».​
​Алекс​ в другие места​ Long​здесь нужно добавить​’ГРУППИРОВКА ПО ВТОРОМУ​ в Excel из​ If d Is​ 1 Step -1​ заполненных? Скрыть через​ еще не ответил​Rows(y + 1).Insert​ удалять, если выделить​Щелкните правой кнопкой мышки​Формулами можно в​ получилось в итоге​ ссылки в списках​Второй вариант.​: Добрый день!​ листа:​Application.ScreenUpdating = False​ одну пустую строку​ СТОЛБЦУ.​ внешних программ. Таким​ Nothing Then Set​ If Len(Cells(i, colDel))​

planetaexcel.ru

Заполнение пустых ячеек

​ фильтр не вариант.​ :)​ Shift:=xlDown​ заголовки A1и D1,​ по заголовку столбца​ соседнем столбце:​ 200 строк, заполненная-пустая-заполненная-пустая?​ по классам, ссылки​Вставить пустые ячейки в​Необходим аналогичный макрос​с сохранением форматирования. Под​’Берём номер столбца,​skip -1 //возврат​’Т.к. количество строк​ образом, возникает необходимость​ d = ch​ = 0 Then​Irregular Expression​…но я все​next y​ а не ячейки.​ A. Из появившегося​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ЦЕЛОЕ(СТРОКА()/3)=СТРОКА()/3;ИНДЕКС(C$3:C$11;СТРОКА()/3);»»)​

​Excel через одну.​ — добавление пустой​

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

​ k = 1​​ If gr Is​​: anddrei55,​​ таки надеюсь это​​Jom​Удаление строк происходит аналогичным​​ контекстного меню выберите​ ​_Boroda_​ ​ в ворде проделать(потом​​ родителей, списки товаров,​

​Таблица, как в​ строки после изменения​ шрифта, размер шрифта,​ ячейка,​ в VBA не​ провести некоторые действия.​ таблицы значениями из​

​ Else Set d​ Nothing Then Set​1) этот код​ победить )​​: хотя вру. вышепредложенный​​ способом, только нужно​ опцию «Вставить»​: В общем случае​

​ в ексель загоню),каким​ разделов, сотрудников по​ первом варианте. Нам​ значения в столбце​ заливка ячеек и​’в переменную. Т.к.​ надо, так как​myLastRow = Cells(Rows.Count,​ верхних ячеек, то​ = Union(d, ch)​ gr = Cells(i,​ не проверяет, заполнена​Igor67​​ код с offset​​ выбирать в соответствующее​Теперь можно заполнить новый​​В ячейке I1​​ другим редактором?​ отделам, т.д. Как​

planetaexcel.ru

Как вставить пустые строки после изменения значений в столбц (Форматирование)

​ нужно вставить пустые​​ и суммирование по​

​ т.д.;​​ этот номер столбца​​ обрабатывается массив​
​ ActiveCell.Column).End(xlUp).Row​ бишь...​
​ k = k​ colDel) Else Set​
​ строка или нет;​: Как то Pavel55​
​ вообще не рабочий.​
​ меню инструмента. А​
​ столбец номерами позиций​ количество пустых строк,​
​Pavel55​ сделать такие гиперссылки,​
​ ячейки между заполненными​ всем столбцам в​вставка только текста заголовка.​
​'в коде нужен​endif​
​'Берём в VBA-таблицу​  из  ​ + 1 End​
​ gr = Application.Union(gr,​2) для оформления​ выкладывал макрос, вот​
​ даже если изменить​
​ в контекстном меню​
​ прайса.​
​ которые нужно добавить​
​: Может так?​
​ смотрите в статье​
​ ячейками в столбце​
​ этой пустой строке,​
​Второй вариант будет​ несколько раз и​
​// если оба​ "tblA" данные из​ сделать ​
​ If End If​ Cells(i, colDel)) End​
​ кода есть кнопка​ он с небольшой​ его немного, он​
​ – без изменений.​​200?'200px':''+(this.scrollHeight+5)+'px');">=ЕСЛИ(ОСТАТ((СТРОКА()-СТРОКА(G$3));(I$1+1))=0;ИНДЕКС(C$3:C$11;(СТРОКА()-СТРОКА(G$3))/(I$1+1)+1);"")​
​Sub InsertRows()​ "Гиперссылка в Excel​ А.​
​ подскажите как добиться​ быстрее работать, если​
​ удобнее указывать​ условия не выполняются,​ второго столбца.​Это можно реализовать, буквально,​ If k =​
​ If End If​ — воспользуйтесь ей​
​ доработкой...​
​ только до 20​
​ Только нужно их​В нашем прайсе все​Lunatic​
​Dim i As​ на другой лист".​В ячейке С1​
​ этого Вашими предложенными​
​ макросу нужно работать​
​'переменную вместо "ActiveCell.Column",​
​ то ничего не​
​tblA() = Cells(1,​
​ в несколько движений.​

​ 1000 Then d.EntireRow.Delete​​ Next i If​ скорее, пока модераторы​Вводите сколько строк​ строки работать будет.​ соответственно выделять по​ еще не достает​: ух ты !!!​ Long​Вставляйте и удаляйте строки,​ пишем такую формулу.​ макросами?​ с большим количеством​
​’т.к. можно что-нибудь​ делается​ ActiveCell.Column + 1).Resize(myLastRow,​Выделяем диапазон ячеек в​ k = 0​
​ Not gr Is​ не видят;​ надо вставить и​
​genyaa​ номерам строк.​
​ двух столбцов: количество​ работает! спасибо, Serge​For i =​
​ столбцы и ячейки​ =ЕСЛИ(ОСТАТ(СТРОКА();2);"";ИНДЕКС(A:A;СТРОКА()/2))​lexkaz​
​ данных.​ забыть сделать,​st_1=A1// присвоить значение​ 1).Value​
​ первом столбце, который​ p = True​ Nothing Then gr.EntireRow.Delete​
​3) EntireRow.Delete не​ ОК!!!​: попробуйте так:​Чтобы удалить строку или​
​ и единицы измерения​ 007, а у​
​ 2 To 200​ для оптимального размещения​Копируем формулу вниз​: Люди добрые помогите​
​Какой вариант должен​
​'если код будет​ ячейки колонки А1​For i =​ надо заполнить (в​ Exit For End​
​ End Submtts54, я​
​ пробовали?​Guest​Sub AddForEach2Rows()​ столбец в Excel​
​ (шт. кг. л.​ нас с позволения​
​ Step 2​ данных на листе.​ по столбцу. Получится​ плиз​ делать макрос?​
​ меняться и данные​
​ текущей строки​ UBound(tblA, 1) To​ нашем примере, это​ If Next ch​
​ ничего не нашёл…​Sanja​: Добрый день!​
​Dim a As​ используйте горячие клавиши​ упак.). Чтобы одновременно​ сказать IT отдел​
​Cells(i, 1).EntireRow.Insert​

​Примечание:​​ так.​мне нужно тоже​SergeyKorotun​ будут браться не​
​st_2=A2 // //​
​ 2 Step -1​ A1:A12).​
​ Loop If Not​ (см. скрин)​
​: И при удалении​приведенный здесь макрос​
​ Range​
​ CTRL+«минус» предварительно выделив​ добавить два столбца,​
​ так ничего и​Next i​ В Microsoft Excel установлены​
​Какими способами быстро скопировать​ самое только вместо​
​: с форматированием​ те.​ присвоить значение ячейки​
​'Если текущая или​Нажимаем клавишу​ (d Is Nothing)​Irregular Expression​
​ цикл нужно организовывать​ я сделала, чтобы​
​Set a =​ их.​ выделите диапазон из​
​ не ответил )))​
​End Sub​
​ следующие ограничения на​
​ формулу по столбцу,​
​ линии надо вставить​
​Скрипт​myActiveColumn = ActiveCell.Column​ колонки А2 текущей​ вышестоящая ячейка пустые.​
​F5​ Then d.EntireRow.Delete End​
​: anddrei55, вот как-то​ с последней по​ он работал не​
​ ActiveSheet.UsedRange​
​Примечание. Вставка новых столбцов​
​ двух ячеек C1:D1.​
​Lunatic​
​Guest​

​ количество строк и​​ смотрите в статье​ последнее значение​:​myLastRow = Cells(Rows.Count,​

​ строки​​If IsEmpty(tblA(i, 1))​и затем кнопку​ If Application.Calculation =​ так, проверка по​ начальную строку с​ от последней строки​For i =​ и строк на​ Далее используйте тот​

​: а вот Сашино​​: Я извеняюсь за​​ столбцов: 16 384 столбца​
​ «Копирование в Excel»​я знаю что​
​200?'200px':''+(this.scrollHeight+5)+'px');">Sub Procedure_1()​ myActiveColumn).End(xlUp).Row​
​end do​ = True Or​
​Выделить (Special)​ xlCalculationAutomatic Application.ScreenUpdating =​
​ пустой первой ячейке,​
​ шагом -1​ а наоборот от​ a.Rows.Count To 1​
​ самом деле является​ же инструмент на​
​ решение у меня​ неграмотность. Но можно​ в ширину и​
​ тут.​
​ тут просто вместо​Dim tblMy() As​
​'Берём в VBA-таблицу​Скрипт​ IsEmpty(tblA(i - 1,​и в появившемся​
​ True End Sub​
​ если надо по​anddrei55​
​ первой к последней.​ Step -1​ заменой. Ведь количество​
​ главной закладке «Вставить»-«Вставить​ почему-то не работает.​
​ по подробней.​ 1 048 576 строк в​Вставить пустые строки в​
​ линии написать оператор​ Variant​ "tblMy" данные из​: SergeyKorotun, да, вы​
​ 1)) = True​ окне выбираем​
​Но при таком​ пустой целой строке​: Как в таком​
​Но макрос недорабатывает.​a.Rows(i + 1).EntireRow.Insert​
​ строк 1 048​
​ столбцы на лист».​ всё так же​
​Guest​
​ высоту.​
​Excel через две, три​
​ с последним значением​
​Dim myLastRow As​
​ двух столбцов.​ правы, есть другой​
​ Then​Выделить​ случае нужно выделять​
​ - скажите:​ случае прописать проверку​ Из-за вставки строк​a.Rows(i + 1).EntireRow.Insert​
​ 576 и колонок​Или выделите два заголовка​
​ и выстаивается​: Да просто вставьте​Чтобы вставить столбец, выделите​
​, т.д.​
​ но не знаю​
​ Long​
​tblMy() = Cells(1,​
​ способ решения вашей​

​’Переходим к следующей​​пустые ячейки​ столбец, что не​’Добавляем Sub InsertRows()​ заполненных строк и​ общий диапазон ведь​Next​ 16 384 не​ столбца C и​Lunatic​ этот код в​ его, а затем​Используем формулу как​ как …​Dim myActiveColumn As​ myActiveColumn).Resize(myLastRow, 2).Value​ задачи:​ ячейке.​(Blanks)​ очень удобно. Можно​ Dim i As​ чтоб после заполненых​ увеличивается, но макрос​End Sub​

​ меняется. Просто последние,​​ D, щелкните правой​: в вашем -​ пустой модуль и​
​ на вкладке​ во втором варианте,​БОЛЬШОЕ СПАСИБО !!!​ Long​

• ​For i =​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Procedure_1()​GoTo metka​:​ забыть выделить столбец​
• ​ Long: i =​

​ добавилась пустая?​ останавливается на рассчитанном​слэн​ заменяют предыдущие… Данный​ кнопкой мышки и​
​ да, работает.​ запустите макрос на​

​Главная​​ только вместо цифры​

​Хоть вопрос и​​Dim i As​​ UBound(tblMy, 1) To​
​Dim tblMy() As​End If​
​Не снимая выделения вводим​ и тогда код​
​ 1 Do While​И в обратном​
​ сначала диапазоне, не​: или так:​
​ факт следует учитывать​
​ выберите опцию «Вставить».​Lunatic​ выполнение.​
​нажмите кнопку​
​ «2» напишем цифру​
​ похожий, но все-таки​ Long​
​ 2 Step -1​ Variant​'Если данные в​
​ в первую ячейку​ сработает не так​
​ i < 200​ направлении, проверку и​ доходит до конца.​
​Sub insrows()​ при заполнении листа​
​Примечание. Столбцы всегда добавляются​: ааа! тоже классная​
​Pavel55​Вставить​ «3». Формула получится​
​ немного другой. А​Application.ScreenUpdating = False​'Если данные в​Dim myLastRow As​
​ текущей ячейке и​ знак равно и​
​ как надо.​ '200 - количество​ удаление пустых строк?​
​ Что делать?​Dim i As​
​ данными более чем​
​ в левую сторону.​ формула. спасибо. всё​
​: Посмотрите приложенный файл​
​и выберите пункт​
​ такая. =ЕСЛИ(ОСТАТ(СТРОКА();3);"";ИНДЕКС(A:A;СТРОКА()/3))​
​ посему отсылаю Вас​
​'Берём номер столбца,​
​ первом столбце в​ Long​
​ вышестоящей ячейке разные.​ щелкаем по предыдущей​
​Irregular Expression​ проверяемых строк If​
​Jack Famous​Sub InsertRows()​
​ Long, s As​ на 50%-80%.​
​ Количество новых колонок​ сохранила .​ (слева)​Вставить столбцы на лист​
​Получится такая таблица.​ к пункту 5q​
​ где находится активная​ текущей строке и​Dim i As​
​If tblA(i, 1)​
​ ячейке (т.е. создаем​
​: anddrei55, ест-но, т.к.​
​ Not IsEmpty(Cells(i, 1))​
​: anddrei55, для начала​

​Dim i, i1​​ String​

​Sortafreel​​ появляется столько, сколько​
​AlexM​Guest​.​Третий вариант.​ Правил форума, а​ ячейка,​ строке,​ Long​ <> tblA(i -​ ссылку на предыдущую​

​ каждая строка удаляется/вставляется​​ Then Cells(i +​ файл-пример прикрепите с​
​ As Long, nRow​For i =​: День добрый.​ было их предварительно​
​: Еще можно так​: Спасибо за помощь!!!!!​Чтобы удалить столбец, выделите​В​ тему закрываю.​’в переменную.​
​’которая выше, не​
​Application.ScreenUpdating = False​ 1, 1) Then​ ячейку, другими словами):​ отдельно с двумя-тремя​ 1, 1).EntireRow.Insert i​ листами «до» и​ As Long, kv,​

excelworld.ru

​ 1 To 9​

Какой формулой можно вставить в таблицу пустые строки (или строчку шапки) с нужным шагом?

Как в Excel вставить шапку таблицы с определенным шагом?

Как в таблицу Excel вставить пустую строку через строку?

Как в Эксель таблицу вставить строку через каждые несколько строк?

Возможно ли в ячейке Эксель таблицы указать через сколько строчек вставлять строку?

Считаем что таблица записана начиная с ячейки A4

и необходимо распечатать строчки через одну.

Составим формулу, печатающую пустую строку для ячеек у которых остаток от деления на шаг +1 равен нулю, а сами ячейки сдвигаются на число добавленных ячеек: ЦЕЛОЕ(( СТРОКА() — СТРОКА($A$4))/2 ).

если надо печатать через строчку (шаг+1=2) то формула выглядит так:

=ЕСЛИ( ОСТАТ(( СТРОКА() — СТРОКА($A$4)+1) ;2)=0 ; » «; ДВССЫЛ(«R»&( СТРОКА(A4)- ЦЕЛОЕ(( СТРОКА() — СТРОКА($A$4))/2 ))&»C»&СТОЛБЕЦ( A4);0))

Эту формулу надо растянуть на всё поле таблицы.

если требуется делить таблицу каждый раз на новое количество строк, то количество строк можно записать в ячейку ($Q$1) и печатать уже не пустую строку а строку шапки (ячейка A$3). Это легко можно сделать формулой:

=ЕСЛИ( ОСТАТ(( СТРОКА()- СТРОКА($A$4)+1) ; $Q$1+1)=0; A$3; ДВССЫЛ( «R»&(СТРОКА(A4)- ЦЕЛОЕ(( СТРОКА()- СТРОКА($A$4))/( $Q$1+1)) )&»C»&СТОЛБЕЦ( A4);0))

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

Иногда пользователь, составляя таблицу, забывает ввести некоторые данные. Когда он начинает понимать, что пропустил ценную информацию или забыл её дополнить, то пытается вместить все необходимое в готовую таблицу. Однако таким образом можно допустить ряд ошибок, в результате которых могут исчезнуть другие данные, или же просто ничего не изменится.

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

Как добавить строку в таблицу Эксель

Табличный процессор Эксель является самой удобной и функциональной программой для составления таблиц. Он обладает специальными функциями, которые помогают изменять вид уже готовых документов. Как профессионалы, так и новички могут без проблем добавлять строки в абсолютно каждом уголке объекта.

Способ 1: листание таблицы

Для вставки пустой строчки в конец таблицы можно просто листать колёсиком мыши вниз. Однако для начала нужно довести ползунок, который находится слева, вниз до предела. При этом будут появляться новые строки. Их количество зависит от того, сколько Вы их будет листать.

Данный способ действительно работает, если Вы создаёте или редактируете таблицу сразу в Экселе.

Способ 2: добавление клавишей «Tab», выделение клавишей «Enter»

Такой способ подходит в том случае, если необходимо удлинить строки или добавить столбцы и ячейки. Здесь понадобится исключительно клавиатура.

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

Способ 3: добавление клавишей «Enter»

Этот метод сильно напоминает предыдущий. Здесь снова будет задействована клавиша «Enter».

Чтобы добавить нижнюю строку в таблице, достаточно ввести данные в ячейку или строку, и нажать клавишу «Enter». Тогда Вас перекинет на следующую строку, которая будет принадлежать таблице.

Способ 4: растягивание таблицы

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

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

Способ 5: вставка через контекстное меню

Существует ещё один способ вставки дополнительной строки.

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

Способ 6: добавление нескольких строчек

Для того чтобы вставить несколько строчек, воспользуемся методом №5. Только выделяем не одну строчку, а несколько. После клацаем правой кнопкой мыши, и в контекстном меню выбираем «Вставка» и «Строки таблицы выше».

Как вставлять строки в разных местах

Многих мучает именно этот вопрос, так как часто приходится добавлять строки в разных частях таблицы. Однако это дело станет долгим и нудным, если вставлять всё время по одной строчке. А если их будет сотня, и находиться они будут в разных частях таблицы? Тогда нам поможет именно этот способ.

1. Нажмите и удерживайте клавишу «CTRL», выделите поочерёдно нужные строки (к примеру, шестая, тридцатая, сотая). Теперь действуйте по методу 5: заходите в меню и выбираете вставку строк. Во время вставки ссылки, как абсолютные, так и относительные, настраиваются в автоматической форме.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Посмотреть видео — вставлять пустую строку после каждой строки в 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. Щелкните ОК. Это даст вам набор данных, как показано ниже.
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. Щелкните ОК. Это даст вам окончательный набор данных, как показано ниже (с пустой строкой после каждой второй строки набора данных).
14. Удалите вспомогательный столбец.

Точно так же, если вы хотите вставить пустую строку после каждой третьей строки, используйте цифры 3, 6, 9 и так далее на шаге 5.

Использование простого кода VBA

Хотя для вставки альтернативных пустых строк в Excel требуется множество обходных путей, с VBA это совсем несложно.

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

Ниже приведен код VBA, который вставляет пустую строку после каждой строки в наборе данных:

Sub InsertAlternateRows () 'Этот код будет вставлять строку после каждой строки в выделении' Этот код был создан Sumit Bansal с сайта trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. CompleteRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Select Next i End Sub

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

Вот шаги, чтобы разместить этот код VBA в редакторе VB в Excel:

1. Скопируйте приведенный выше код
2. Перейдите на вкладку «Разработчик» и выберите вариант «Visual Basic». Это откроет редактор VB. Вы также можете использовать сочетание клавиш ALT + F11
3. В редакторе VB щелкните правой кнопкой мыши любой объект в Project Explorer.
4. Наведите курсор на параметр «Вставить» и нажмите «Модуль». Это вставит новый модуль
5. В окне кода модуля вставьте приведенный выше код.

Когда у вас есть код в редакторе VB, вы можете теперь использовать этот код для вставки пустых строк после каждой второй строки в наборе данных.

Вот шаги, чтобы использовать код для вставки пустых строк после каждой строки:

1. Выберите весь набор данных (кроме строки заголовка)
2. Перейдите на вкладку «Разработчик» (если у вас нет вкладки «Разработчик», нажмите здесь, чтобы узнать, как ее получить)
3. Нажмите на опцию «Макросы».
4. В диалоговом окне «Макрос» выберите макрос — InsertAlternateRows.
5. Нажмите «Выполнить»

Вот и все!

Вышеупомянутые шаги мгновенно вставят чередующиеся пустые строки в набор данных.

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

Вы можете узнать больше о различных способах запуска макросов здесь.

Если вы хотите вставить пустую строку после каждой второй строки, вы можете использовать следующий код:

Sub InsertBlankRowAfterEvery2ndRow () 'Этот код будет вставлять строку после каждой второй строки в выделении' Этот код был создан Sumit Bansal из trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Select Next i End Sub

Надеюсь, вы нашли этот урок полезным.

Вы поможете развитию сайта, поделившись страницей с друзьями

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

Вставьте пустые строки с функцией сортировки
Вставьте альтернативные пустые строки с кодом VBA
Быстро вставляйте определенное количество пустых строк с помощью Kutools for Excel

---

Вставьте пустые строки с функцией сортировки

Этот метод более простой, но обходной для вставки пустых строк между выходящими строками. Вы можете сделать следующее:

1. Вам нужен пустой столбец рядом с вашими данными. Например, у меня рабочий лист содержит A1: E9, вы можете использовать столбец F.

2. В ячейку F1 введите число 1, а в ячейку F2 введите 2.

3. Выберите число 1 и число 2 и дважды щелкните маркер заполнения, Excel автоматически заполнит ячейки в столбце F.

4. Затем скопируйте этот новый столбец F (F1: F9), выберите ячейку F10 и вставьте номер автозаполнения из F1: F9. Смотрите скриншот:

5. Затем щелкните Данные > СортироватьИ Предупреждение о сортировке появится диалоговое окно, выберите Расширить выбор и нажмите Сортировать… См. Снимок экрана:

6. И Сортировать появится диалоговое окно, выберите номер 1 из Сортировать по: раскрывающийся список, а затем щелкните OK кнопка. Смотрите скриншот:

Затем новые пустые строки были вставлены в существующие строки. Смотрите скриншот:

Внимание: Если вы хотите вставить две или три пустых строки между каждой строкой, вы можете скопировать новый столбец с автозаполнением два или три раза, чтобы добавить новые строки.

---

Вставьте альтернативные пустые строки с кодом VBA

Если описанный выше способ немного сложен, вы можете использовать следующий код VBA для его решения.

1. Нажмите клавиши Alt + F11, чтобы открыть Microsoft Visual Basic для приложений окно, затем щелкните Вставить > Модули и введите следующий код в Модули:

Код VBA: вставка пустых строк в Excel

Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

2. Затем нажмите или нажмите клавишу F5, чтобы запустить код. Во всплывающем диалоговом окне Kutoos for Excel выберите диапазон, в который вы будете вставлять пустые строки, а затем нажмите кнопку ОК. Смотрите скриншот:

Затем между каждыми двумя строками была вставлена ​​новая пустая строка. Смотрите скриншот:

---

Быстро вставляйте определенное количество пустых строк с помощью Kutools for Excel

Вышеупомянутые два метода просто относятся к вставке пустых строк между каждой строкой, для вставки пустой строки или нескольких строк после каждой n-й строки, как вы должны делать? Здесь я рекомендую Вставить пустые строки и столбцы полезности Kutools for Excel. Эта функция может помочь быстро вставить определенное количество пустых строк после каждых n-ых строк в определенный диапазон. Пожалуйста, сделайте следующее.

1. Выберите диапазон, в который вы хотите вставить пустые строки, и щелкните Кутулс > Вставить > Вставить пустые строки и столбцы. Смотрите скриншот:

2. в Вставить пустые строки и столбцы диалоговое окно, выберите Пустые строки в типе Insert укажите количество строк интервала, в которые вы будете вставлять пустые строки, и количество строк, которые вы хотите вставить, а затем щелкните значок OK кнопка. Смотрите скриншот:

Затем вы можете увидеть, что через каждые две строки были вставлены определенные пустые строки. Смотрите скриншоты:

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

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

---

Быстро вставляйте определенное количество пустых строк с помощью Kutools for Excel

---

Статьи по теме

• Быстро вставляйте пустой столбец в каждый второй столбец
• Вставить сразу несколько пустых строк или столбцов

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

Как в таблице эксель вставить пустую строку?

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

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

Строка добавилась в том месте, где у нас стоит курсор. А чтобы «подвинуть» таблицу вправо, теперь можно добавить и столбец. Посмотрите, что происходит, если мы выбираем «столбец»:

Вставляем между строк таблицы эксель пустую строку

Мы видим, что  появившаяся новая строка (или столбец) «простирается» на весь документ Excel. Если на одном листе несколько таблиц — можно делать так, чтобы вставленная пустая строка была только в границах одной таблицы.  Опять вызываем контекстное меню. Если мы теперь выберем «ячейку со сдвигом вниз» получаем пустую строку в только в выбранном столбце таблицы:

Соседние графы таблицы остаются нетронутыми. Но в самом низу  строки сдвигаются вниз на одну позицию. Если мы выбираем «ячейки со сдвигом вправо», то получаем пустую ячейку в  выбранной строке. При этом позиции справа сдвигаются по горизонтали:

Эти способы хороши, когда нужно отредактировать первоначальный макет таблицы.

Как в экселе вставить в таблицу несколько строк сразу

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

А чтобы вставить несколько пустых строк — нужно выделить мышью при нажатой клавише Ctrl  номера  нужных строк и нажать на выделенном правой кнопкой мыши:

Если вы выделили 10 строк — вставиться в этом месте десять пустых строк. Если две выделили, то будет две.

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

Кстати, удалить вставленные неправильные строки тоже  очень просто. Так же выделяем строку полностью, (поставив курсор на ее номер) и вызываем контекстное меню, удаляем.

Можно отменить предыдущее действие, нажав сочетание клавишь CTRL +z. В нашем примере строки таблицы залиты другим цветом. Чтобы в эти места добавить новые строки просто   выделим их номера при нажатой клавише Ctrl:

В моем примере появилось три новых строки; только необходимо учитывать что выделенные строки съезжают вниз, а новые будут находиться выше их. На этом у меня все! Удачи!