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

Вставлять пустую строку после каждой строки в Excel (или каждой N-й строки)

Людям, работающим с большими наборами данных, часто нужны простые вещи, такие как вставка / удаление строк или столбцов.

Хотя уже существует множество различных (и простых) способов добавления строк в 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, который вставляет пустую строку после каждой строки в наборе данных:

Приведенный выше код подсчитывает общее количество строк в выделенном фрагменте и использует цикл 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. Например, если вам приходится делать это довольно часто, вы можете добавить этот макрос на панель быстрого доступа, чтобы запускать его одним щелчком мыши.

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

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

Как добавить пустую строку в 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​ новинка». Для этого​ Заранее спасибо за​ будет (и на​

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

​ подправить, а добавить​​ быть нарушена. Выделите​

​ на быстрое удаление​
​: Irregular Expression, Спасибо​ давно, решая подобную​
​ , 1)​’ Вставка 2-х​ втором — собственно,​
​ указан символ «;»​
​Тема закрыта​
​ Step -1​

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

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

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

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

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

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

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

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

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

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

​’Если данные во​​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​
​ поддерживаются.​

Как вставить строку или столбец в 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​

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

​ 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​ нужного вида и​

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

​ символы).​​ 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​

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

​ Вставляться должно не​​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​

​ где заполнена каждая​​ одной из выделенных​ и столбцов. Их​fjeka​
​ строку и выбрать​

​ таблицу пустые столбцы.​
​ правой мышкой. Выбираем​

​’Делаем заголовок у​ существующая строка из​End Sub​
​ от последней строки​ Long​
​ примерно в 2-3​

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

​ команду​​ Установить в них​

​ из контекстного меню​
​ нижней группы.​ этой же таблицы,​
​SergeyKorotun​ до первой​
​Application.ScreenUpdating = False​ раза, но скорость​: А как ускорьть​
​: В окошко поиска​
​Next​
​Волчонок​
​ каждые вторая и​

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

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

​ то файл на​​ конкретно «ZVI_DelRows».​End With​ условие чуть сложнее:​Guest​ используйте горячие клавиши​ которой стоит курсор​: Всем привет. Подскажите​.​ от постороннего взгляда.​Excel через один​ нужно сохранять форматирование.​ первом листе заготовка,​ добавлю​if st_1<>a1// если​myLastRow = Cells(Rows.Count,​ даже меньше, т.к.​ долго зависает.​Jack Famous​MsgBox «Строки добавлены!»,​ надо вставить пустую​: for each a​ CTRL+SHIFT+«плюс» предварительно выделив​

​ нажмите комбинацию горячих​ чайнику, как можно​Выделите одну или несколько​ Как это сделать,​

​.​Cells(1, myActiveColumn).Resize(1, 3).Copy​ а на втором​

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

​ in range(«A1:A20»)​​ их.​
​ клавиш: SHIFT+ПРОБЕЛ. Горячие​ решить следующую задачу.​ ячеек. Щелкните правой​ смотрите в статье​Выделяем столбцы с​ _​
​ — что должно​: А можно еще​ и в следующей​’Берём в VBA-таблицу​ именно прямой работой​ удаления пустых строк​ файла Option Explicit​End Sub​
​ объединенных ячеек. Идея​
​a.offset(1,0).insertrow​Примечание. Новые строки всегда​ клавиши для выделения​ Есть диапазон строк​ кнопкой мыши и​
​ «Как скрыть столбцы​ нажатой клавишей «Ctrl»​
​Destination:=Cells(i + 2,​
​ получиться после работы​
​ после вставки двух​
​ значения разные,​ «tblA» данные из​
​ с листом и​ есть код​ Sub DelBlannk() Dim​

​anddrei55​ была такая: проверяем​a.offset(1,0).insertrow​ добавляются сверху над​
​ столбца: CTRL+ПРОБЕЛ.​ (все заполнены). Надо​ выберите команду​
​ в Excel».​ (каждый столбец отдельно).​ myActiveColumn)​

​ макроса. Теперь курсор​
​ пустых строк с​
​// то здесь​ первого столбца.​

​ ячейками в цикле.​Option Explicit Sub​ gr As Range​
​: Всем привет.​ столбец от k=7​
​next​ выделенными строками.​Допустим у нас есть​
​ вставить заданное количество​Вставить​
​В ячейку Excel​
​ Затем из контекстного​
​’Если данные во​
​ будет устанавливаться не​
​ пунктирной границей между​
​ нужно группы разделить​
​tblA() = Cells(1,​Как известно, для полноценной​
​ delete_Null_rows() Dim ch​

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

​ 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))​

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

​ фильтр не вариант.​ :)​ 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​​ другим редактором?​ отделам, т.д. Как​

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

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

​ т.д.;​​ этот номер столбца​ ​ обрабатывается массив​
​ 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 -​ ссылку на предыдущую​

Как добавить новую строку в Excel. Внутри и в конце таблицы, в «умной таблице»

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

Как вставить новую строку

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

1. Первоначально производим открытие или же создание таблички. Производим выбор той ячейки строчки, выше которой мы планируем расположить новую строчку. Жмем правой клавишей мышки по выбранной ячейке. Возникло маленькое контекстное меню, в котором следует отыскать элемент «Вставить…» и щелкнуть по нему левой клавишей мышки. Альтернативный вариант – использование комбинации клавиш «Ctrl» и «+».

1. Программа вывела окошко под наименованием «Вставка». Через это окошко можно реализовать добавление строчки, колонки или же ячейки. Ставим пунктик около надписи «Строку». Щелкаем на элемент «ОК», чтобы сохранить введенные изменения.

1. Готово! Новая строчка добавилась в табличку. Обращаем ваше внимание, что при добавке новая строчка берет все настройки форматирования от строки, расположенной выше.

Важно! Существует дополнительный метод, позволяющий добавить новую строчку. Жмем ПКМ на порядковый номер строчки, а затем в раскрывшемся контекстном меню щелкаем на надпись «Вставка».

4

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

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

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

1. Зажимаем этот плюсик при помощи левой клавиши мышки и перетягиваем его ниже, на то число строчек, которое мы планируем вставить. В завершении отпускаем ЛКМ.

1. Замечаем, что все добавленные строчки самостоятельно наполнились информацией из выделенной ячейки. Исходное форматирование тоже осталось. Для очищения наполненных ячеек необходимо произвести процедуру выделения новых строчек, а затем щелкнуть на «Delete» на клавиатуре. Альтернативный вариант – нажатие ПКМ по выбранным полям, а затем осуществление выбора элемента «Очистить содержимое» в раскрывшемся специальном контекстном меню.

1. Готово! Мы добились того, чтобы только что добавленные строчки очистились от ненужной информации. Теперь мы можем сами добавить туда необходимые данные.

Важно! Данный метод подходит только в тех моментах, когда нижняя строчка не применяется в виде «Итого», а также не складывает вышерасположенные строчки.

Как создать “умную” таблицу

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

1. Производим выделение той рабочей области, которую мы планируем преобразовать в «умную» табличку. Передвигаемся в раздел «Главная», а затем находим элемент под названием «Форматировать как таблицу». Раскрываем длинный перечень предлагаемых табличек. Выбираем тот стиль, который больше нравится и жмем по нему левой клавишей мышки.

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

1. Готово! Мы реализовали создание «умной» таблички и теперь можем производить с ней дальнейшие манипуляции.

Как вставить новую строку в “умной” таблице

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

1. Щелкаем правой клавишей мышки по любой ячейке. В раскрывшемся специальном меню находим элемент «Вставить» и раскрываем его. В появившемся перечне кликаем на «Строки таблицы выше».

1. Альтернативный вариант добавки новой строчки – использование комбинации специальных горячих клавиш «Ctrl» и «+». Применение горячих клавиш значительно уменьшает время, потраченное на процедуру добавления новых строчек в табличку.

Как вставить новую строку в конце “умной” таблицы

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

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

1. Здесь добавленные ячейки не наполнятся автоматическим образом первоначальной информацией. На своих местах останутся только формулы. Поэтому нет необходимости очистки содержимого ячеек, так как они итак пустые.

1. Альтернативный вариант – написание новых данных в строчку, располагающуюся под исходной «умной» табличкой. Если реализовать эту процедуру, то новая строчка автоматом превратится в элемент «умной» таблички.

1. Третий метод – перемещаемся в нижний правый край ячейки «умной» таблички и щелкаем на кнопку «Tab», располагающуюся на клавиатуре.

1. После реализации этого действия вставленная строчка автоматическим образом добавится в «умную» табличку с сохранением исходного форматирования.

Добавление нескольких пустых строк в таблицу Excel

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

1. Производим при помощи левой клавиши мышки выделение той строчки, над которой мы планируем реализовать добавление новых, а затем, не отпуская ЛКМ, выбираем такое количество строчек, которое мы желаем добавить в табличный документ.
2. Выделение всех необходимых строчек произведено успешно. Теперь нужно щелкнуть правой клавишей мышки по любому месту выделенной рабочей области.
3. Раскрылось небольшое специальное контекстное меню, в котором необходимо отыскать элемент, имеющий наименование «Вставить» и щелкнуть по нему левой клавишей мышки. Альтернативный вариант – применение инструментов, располагающихся на специальной ленте, находящейся в верхней части интерфейса табличного редактора.
4. Готово! Мы реализовали процедуру добавления нескольких незаполненных строчек в исходную табличку.

Как вставить/добавить заданное количество пустых/новых строк в определенные места?

Эту функцию можно реализовать, используя инструменты VBA. Более подробно о выполнении этой процедуры можно узнать, посмотрев следующее видео:

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

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

К примеру, у нас есть следующая табличка с необходимой информацией:

20

Подробная инструкция по вставке различного количества строк пустого типа выглядит так:

1. Перемещаемся в диалоговое окошко под названием «Вставка пустых строк по умолчанию».
2. В поле «Номер столбца с количеством строк» указываем нужное нам значение.
3. Стоит заметить, что если мы поставим галочку около надписи «Разное количество пустых строк для вставки», то строчка с числом строк для вставки, изменится на порядковый номер столбика, в котором заданы данные числового типа.

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

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

Удалить пустые строчки можно несколькими методами. Разберемся в этом вопросе более подробно, рассмотрев конкретные примеры. Допустим, у нас есть следующая табличка, отображающая оценки учеников по различным предметам:

23

Первый вариант удаления пустых строчек выглядит так:

1. Подразумевается использование сортировки информации. Производим выделение абсолютно всей таблички. Перемещаемся в раздел «Данные» и в блоке команд «Сортировка и фильтр» щелкаем на «Сортировка». Альтернативный вариант – нажатие правой клавишей мышки по выбранной области и осуществление клика на элемент «от минимального к максимальному».
2. В результате проделанных действий необходимые нам пустые строчки переместились в самый низ исходной таблички. Теперь мы можем удобно удалить эти пустые строчки при помощи клавиши «Delete», предварительно выделив их на рабочей области при помощи ЛКМ.

Второй вариант удаления пустых строчек выглядит так:

1. Подразумевается использование фильтра. Производим выделение «шапки» таблички.
2. Передвигаемся в раздел «Данные», а затем жмем левой клавишей мышки на элемент «Фильтр», который находится в блоке инструментов «Сортировка и фильтр».
3. Теперь правее от наименования каждой колонки отобразилась маленькая стрелка, указывающая вниз. Жмем на нее, чтобы открыть окошко фильтрации.
4. Убираем галочку около надписи «(Пустые)».

1. Готово! Этот метод позволил удалить каждую незаполненную ячейку из строчки.

Третий вариант удаления пустых строчек выглядит так:

1. Подразумевает использование выделения группы ячеек. Первоначально производим выделение всей таблички.
2. Передвигаемся в параметр «Редактирование» и щелкаем на элемент «Найти и выделить». В раскрывшемся перечне кликаем на «Выделение группы ячеек».

1. В отобразившемся окошке под наименованием «Выделение группы ячеек» ставим пунктик около надписи «пустые ячейки» при помощи левой клавиши мышки.

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

1. Готово! Этот метод позволил удалить каждую незаполненную ячейку из строчки.

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

Рекомендация! Использование комбинации клавиш «CTRL»+«-», позволяющая удалить выбранную строчку, значительно ускорит процесс работы с информацией в табличном редакторе Эксель. Выделить же необходимую строчку можно при помощи сочетания горячих клавиш «SHIFT+ПРОБЕЛ».

Заключение

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

Добавление новой строки в программе Microsoft Excel

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

Вставка строки между строк

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

Итак, открываем таблицу, в которую нужно добавить строку. Чтобы вставить строку между строк, кликаем правой кнопкой мыши по любой ячейки строки, над которой планируем вставить новый элемент. В открывшемся контекстном меню жмем на пункт «Вставить…».

Как видим, новая строка в программе Microsoft Excel успешно добавлена.

Вставка строки в конце таблицы

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

1. Для того, чтобы продвинуть таблицу вниз, выделяем последнюю строку таблицы. В её правом нижнем углу образовывается крестик. Тянем его вниз на столько строк, на сколько нам нужно продлить таблицу.
2. Но, как видим, все нижние ячейки формируются с заполненными данными из материнской ячейки. Чтобы убрать эти данные, выделяем новообразованные ячейки, и кликаем правой кнопкой мыши. В появившемся контекстном меню выбираем пункт «Очистить содержимое».

Как видим, ячейки очищены, и готовы к заполнению данными.

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

Создание умной таблицы

Но, намного удобнее создать, так называемую, «умную таблицу». Это можно сделать один раз, и потом не переживать, что какая-то строка при добавлении не войдет в границы таблицы. Эта таблица будет растягиваемая, и к тому же, все данные внесенные в неё не будут выпадать из формул, применяемых в таблице, на листе, и в книге в целом.

Итак, для того, чтобы создать «умную таблицу»:

1. Выделяем все ячейки, которые в неё должны войти.
2. Во вкладке «Главная» жмем на кнопку «Форматировать как таблицу».
3. В открывшемся перечне доступных стилей выбираем тот стиль, который вы считаете для себя наиболее предпочтительным. Для создания «умной таблицы» выбор конкретного стиля не имеет значения.
4. После того, как стиль выбран, открывается диалоговое окно, в котором указан диапазон выбранных нами ячеек, так что коррективы в него вносить не нужно. Просто жмем на кнопку «OK».

Добавить строку в конце «умной таблицы» можно несколькими способами.

Можно встать на последнюю ячейку последней строки, и нажать на клавиатуре функциональную клавишу табуляции (Tab).

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

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

А можно, просто ввести любые данные под строкой ниже таблицы, и она автоматически будет включена в состав таблицы.

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