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:​ все выделенные (пустые)​
Вставить пустые строки в Excel через одну. ​ цикл строку 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 =​ нижней группы.​ совпадают.​

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

​ на быстрое удаление​
​: 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 = «Шапка​

​ <> tblMy(i -​​ котором кол-во проверок​ первом столбце, скопируйте​ добавления строк нет.​ вполне достаточно.​ решение, тут же​

​ шаг вставки», ,​ от текущей активной​ добавить по 3​
​ выделить 2 несмежных​
​ таблицы, отчеты и​

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

Добавилось 2 столбца.

​ строками, а с​ с разными условиями​ 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​

​ где заполнена каждая​​ одной из выделенных​ и столбцов. Их​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​

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_​ ​ в ворде проделать(потом​​ родителей, списки товаров,​

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

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

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

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

​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, когда дело доходит до вставки пустой строки после каждой второй строки (или каждой третьей или четвертой строки), все становится немного сложнее.

Вставлять пустую строку после каждой другой строки

В этом руководстве я покажу вам несколько действительно простых способов вставить пустую строку после каждой строки в существующем наборе данных (или каждой 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?

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

Вставка одной пустой строки в таблицу Excel

Добавить новую строку стандартными средствами Excel можно следующим образом: правой кнопкой мыши кликнуть на номере строки, над которой нужно вставить новую строку и выбрать в контекстном меню пункт «Вставить»

При этом, если какие-то данные в таблице были отформатированы (изменены шрифты, изменены цвета, установлены заливки ячеек), то после добавления новой строки появится кнопка «Параметры добавления», раскрыв которую можно выбрать для новой строки один из трех пунктов «Форматировать как сверху», «Форматировать как снизу» и «Очистить формат».

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

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

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

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

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

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

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

2. вставка заданного количества пустых строк как выше, так и ниже строк с искомым значением;

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

4. вставка новых строк ниже каждой второй, третьей, пятой, n-ной строки выбранного диапазона (шаг задается пользователем);

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

6. вставлять пустые строки между заполненными (после каждой заполненной ячейки в столбце с заданным номером);

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

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

б) используемые диапазоны — отличается от предыдущего режима тем, что обработка данных производится в используемом диапазоне каждого листа рабочей книги;

в) диапазон листа — диапазон, который выберет пользователь;

г) диапазоны листов — это одноименные диапазоны на всех листа рабочей книги.

*Внимательно выбирайте диапазон для получения желаемого результата!

8. выбор необходимых условий для значений ячеек.

Для числовых значений: равно/не равно, больше/не больше, меньше/не меньше.

Для текстовых значений: совпадает/не совпадает, содержит/не содержит, начинается/не начинается, заканчивается/не заканчивается.

Программа выполняет проверку всех ячеек заданного диапазона и при выполнении выбранного условия вставляет нужное пользователю количество пустых строк над/под строкой (на выбор), содержащей ячейку с заданным значением. На выбор пользователя представлено множество условий для значений ячеек, с помощью которых можно определить места для вставки новых строк, а также предоставлен выбор диапазонов для обработки данных. Для большей гибкости поиск ячеек с нужными значениями можно осуществлять раздельно, как по текстовым значениям ячеек, так и по числовым. Предусмотрен также поиск как пустых, так и непустых ячеек. Этот макрос позволяет также добавлять новые строки в заданном количестве в каждую n-ую строку выбранного диапазона. Если, к примеру, вставить по две пустые строки ниже каждой второй строки диапазона А2:А24, т ополучим следующий результат:

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

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

Если установить флажок в поле «Разное количество пустых строк для вставки», то поле с количеством строк для вставки изменяется на номер столбца, в котором указаны числовые значения.

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

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

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

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

Создавая разного рода новые таблицы, отчеты и прайсы, нельзя заранее предвидеть количество необходимых строк и столбцов. Использование программы Excel – это в значительной степени создание и настройка таблиц, в процессе которой требуется вставка и удаление различных элементов.

Сначала рассмотрим способы вставки строк и столбцов листа при создании таблиц.

Обратите внимание, в данном уроке указываются горячие клавиши для добавления или удаления строк и столбцов. Их надо использовать после выделения целой строки или столбца. Чтобы выделить строку на которой стоит курсор нажмите комбинацию горячих клавиш: SHIFT+ПРОБЕЛ. Горячие клавиши для выделения столбца: CTRL+ПРОБЕЛ.

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

Допустим у нас есть прайс, в котором недостает нумерации позиций:

Чтобы вставить столбец между столбцами для заполнения номеров позиций прайс-листа, можно воспользоваться одним из двух способов:

  1. Перейдите курсором и активируйте ячейку A1. Потом перейдите на закладку «Главная» раздел инструментов «Ячейки» кликните по инструменту «Вставить» из выпадающего списка выберите опцию «Вставить столбцы на лист».
  2. Щелкните правой кнопкой мышки по заголовку столбца A. Из появившегося контекстного меню выберите опцию «Вставить»

Теперь можно заполнить новый столбец номерами позиций прайса.

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

В нашем прайсе все еще не достает двух столбцов: количество и единицы измерения (шт. кг. л. упак.). Чтобы одновременно добавить два столбца, выделите диапазон из двух ячеек C1:D1. Далее используйте тот же инструмент на главной закладке «Вставить»-«Вставить столбцы на лист».

Или выделите два заголовка столбца C и D, щелкните правой кнопкой мышки и выберите опцию «Вставить».

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

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

Теперь добавим в прайс-лист заголовок и новую позицию товара «Товар новинка». Для этого вставим две новых строки одновременно.

Выделите несмежный диапазон двух ячеек A1;A4(обратите внимание вместо символа «:» указан символ «;» — это значит, выделить 2 несмежных диапазона, для убедительности введите A1;A4 в поле имя и нажмите Enter). Как выделять несмежные диапазоны вы уже знаете из предыдущих уроков.

Теперь снова используйте инструмент «Главная»-«Вставка»-«Вставить строки на лист». На рисунке видно как вставить пустую строку в Excel между строками.

Несложно догадаться о втором способе. Нужно выделить заголовки строк 1 и 3. Кликнуть правой кнопкой по одной из выделенных строк и выбрать опцию «Вставить».

Чтобы добавить строку или столбец в Excel используйте горячие клавиши CTRL+SHIFT+«плюс» предварительно выделив их.

Примечание. Новые строки всегда добавляются сверху над выделенными строками.

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

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

Для наглядного примера удалим из нашего прайс-листа нумерацию позиций товара и столбец единиц измерения – одновременно.

Выделяем несмежный диапазон ячеек A1;D1 и выбираем «Главная»-«Удалить»-«Удалить столбцы с листа». Контекстным меню так же можно удалять, если выделить заголовки A1и D1, а не ячейки.

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

Чтобы удалить строку или столбец в Excel используйте горячие клавиши CTRL+«минус» предварительно выделив их.

Примечание. Вставка новых столбцов и строк на самом деле является заменой. Ведь количество строк 1 048 576 и колонок 16 384 не меняется. Просто последние, заменяют предыдущие… Данный факт следует учитывать при заполнении листа данными более чем на 50%-80%.

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

Создавая разного рода новые таблицы, отчеты и прайсы, нельзя заранее предвидеть количество необходимых строк и столбцов. Использование программы Excel – это в значительной степени создание и настройка таблиц, в процессе которой требуется вставка и удаление различных элементов.

Сначала рассмотрим способы вставки строк и столбцов листа при создании таблиц.

Обратите внимание, в данном уроке указываются горячие клавиши для добавления или удаления строк и столбцов. Их надо использовать после выделения целой строки или столбца. Чтобы выделить строку на которой стоит курсор нажмите комбинацию горячих клавиш: SHIFT+ПРОБЕЛ. Горячие клавиши для выделения столбца: CTRL+ПРОБЕЛ.

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

Допустим у нас есть прайс, в котором недостает нумерации позиций:

Чтобы вставить столбец между столбцами для заполнения номеров позиций прайс-листа, можно воспользоваться одним из двух способов:

  1. Перейдите курсором и активируйте ячейку A1. Потом перейдите на закладку «Главная» раздел инструментов «Ячейки» кликните по инструменту «Вставить» из выпадающего списка выберите опцию «Вставить столбцы на лист».
  2. Щелкните правой кнопкой мышки по заголовку столбца A. Из появившегося контекстного меню выберите опцию «Вставить»

Теперь можно заполнить новый столбец номерами позиций прайса.

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

В нашем прайсе все еще не достает двух столбцов: количество и единицы измерения (шт. кг. л. упак.). Чтобы одновременно добавить два столбца, выделите диапазон из двух ячеек C1:D1. Далее используйте тот же инструмент на главной закладке «Вставить»-«Вставить столбцы на лист».

Или выделите два заголовка столбца C и D, щелкните правой кнопкой мышки и выберите опцию «Вставить».

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

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

Теперь добавим в прайс-лист заголовок и новую позицию товара «Товар новинка». Для этого вставим две новых строки одновременно.

Выделите несмежный диапазон двух ячеек A1;A4(обратите внимание вместо символа «:» указан символ «;» — это значит, выделить 2 несмежных диапазона, для убедительности введите A1;A4 в поле имя и нажмите Enter). Как выделять несмежные диапазоны вы уже знаете из предыдущих уроков.

Теперь снова используйте инструмент «Главная»-«Вставка»-«Вставить строки на лист». На рисунке видно как вставить пустую строку в Excel между строками.

Несложно догадаться о втором способе. Нужно выделить заголовки строк 1 и 3. Кликнуть правой кнопкой по одной из выделенных строк и выбрать опцию «Вставить».

Чтобы добавить строку или столбец в Excel используйте горячие клавиши CTRL+SHIFT+«плюс» предварительно выделив их.

Примечание. Новые строки всегда добавляются сверху над выделенными строками.

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

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

Для наглядного примера удалим из нашего прайс-листа нумерацию позиций товара и столбец единиц измерения – одновременно.

Выделяем несмежный диапазон ячеек A1;D1 и выбираем «Главная»-«Удалить»-«Удалить столбцы с листа». Контекстным меню так же можно удалять, если выделить заголовки A1и D1, а не ячейки.

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

Чтобы удалить строку или столбец в Excel используйте горячие клавиши CTRL+«минус» предварительно выделив их.

Примечание. Вставка новых столбцов и строк на самом деле является заменой. Ведь количество строк 1 048 576 и колонок 16 384 не меняется. Просто последние, заменяют предыдущие… Данный факт следует учитывать при заполнении листа данными более чем на 50%-80%.

Как добавить строку в таблице excel между строками и с сохранением формул?

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

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

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

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

Благодаря одновременному нажатию Ctrl с +, вы также добьетесь открытия меню.

В окошке под названием «Добавление ячеек» следует выбрать «Строку», подтвердив действие кликанием «ОК».

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

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

Вставка строк в экселе в пределах таблицы

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

После того, как будут повторены 2 и 3 этапы, таблица станет выглядеть следующим образом:

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

Если же необходимо добавить по одной пустой строчке после 4-й и 7-й строк, на первом шаге нужно выделять 5-ю и 8-ю строки (удерживая при этом кнопку Ctrl). Повторив шаги 2, а также, 3, табличка станет выглядеть так:

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

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

Альтернативные варианты

Для некоторых юзеров более удобными кажутся другие методы вставки и выделения, о которых рассказано далее.

Выделение полной строчки листа в ексель

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

Затем тут же возникнет пустая строчка между строками №4 и №5. Программе уже известно тотальное выделение строчки на листе. Поэтому не возникает необходимость появления меню с вопросом касательно того, что конкретно следует добавить (этап 3).

Применяем вкладку «Главная»

  • Выделив строчку либо строки, имеется альтернатива вызова меню правым кликом по ней.
  • На вкладке под названием «Главная» следует перейти к разделу «Ячейки», открыть перечень «вставить», после чего выбрать нужный пункт – «Вставить строчки на лист».

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

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

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

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

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

Благодаря одновременному нажатию Ctrl с +, вы также добьетесь открытия меню.

В окошке под названием «Добавление ячеек» следует выбрать «Строку», подтвердив действие кликанием «ОК».

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

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

Вставка строк в экселе в пределах таблицы

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

После того, как будут повторены 2 и 3 этапы, таблица станет выглядеть следующим образом:

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

Если же необходимо добавить по одной пустой строчке после 4-й и 7-й строк, на первом шаге нужно выделять 5-ю и 8-ю строки (удерживая при этом кнопку Ctrl). Повторив шаги 2, а также, 3, табличка станет выглядеть так:

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

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

Альтернативные варианты

Для некоторых юзеров более удобными кажутся другие методы вставки и выделения, о которых рассказано далее.

Выделение полной строчки листа в ексель

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

Затем тут же возникнет пустая строчка между строками №4 и №5. Программе уже известно тотальное выделение строчки на листе. Поэтому не возникает необходимость появления меню с вопросом касательно того, что конкретно следует добавить (этап 3).

Применяем вкладку «Главная»

  • Выделив строчку либо строки, имеется альтернатива вызова меню правым кликом по ней.
  • На вкладке под названием «Главная» следует перейти к разделу «Ячейки», открыть перечень «вставить», после чего выбрать нужный пункт – «Вставить строчки на лист».

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

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

В этом курсе:

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

Примечание: В Microsoft Excel установлены следующие ограничения на количество строк и столбцов: 16 384 столбца в ширину и 1 048 576 строк в высоту.

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

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

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

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

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

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

Параметры форматирования

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

Если кнопка Параметры вставки не отображается, а затем в группе вырезание, копирование и вставка выберите пункт > файл > Дополнительно >, установите флажок Показать кнопки параметров вставки .

Например, чтобы вставить новую ячейку между ячейками «Лето» и «Зима»:

Щелкните ячейку «Зима».

На вкладке Главная щелкните стрелку под кнопкой Вставить и выберите команду Вставить ячейки (со сдвигом вниз).

Новая ячейка добавляется над ячейкой «Зима»:

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

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

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

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

Чтобы вставить один новый столбец, выполните указанные ниже действия. Щелкните правой кнопкой мыши весь столбец справа от того места, куда вы хотите добавить новый столбец. Например, чтобы вставить столбец между столбцами B и C, щелкните правой кнопкой мыши столбец C и выберите команду Вставить столбцы.

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

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

Если вам больше не нужны какие-либо ячейки, строки или столбцы, вот как удалить их:

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

На вкладке Главная щелкните стрелку под кнопкой Удалить и выберите нужный вариант.

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

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

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

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

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

Добавить новую строку стандартными средствами Excel можно следующим образом: правой кнопкой мыши кликнуть на номере строки, над которой нужно вставить новую строку и выбрать в контекстном меню пункт «Вставить»

При этом, если какие-то данные в таблице были отформатированы (изменены шрифты, изменены цвета, установлены заливки ячеек), то после добавления новой строки появится кнопка «Параметры добавления», раскрыв которую можно выбрать для новой строки один из трех пунктов «Форматировать как сверху», «Форматировать как снизу» и «Очистить формат».

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

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

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

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

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

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

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

2. вставка заданного количества пустых строк как выше, так и ниже строк с искомым значением;

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

4. вставка новых строк ниже каждой второй, третьей, пятой, n-ной строки выбранного диапазона (шаг задается пользователем);

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

6. вставлять пустые строки между заполненными (после каждой заполненной ячейки в столбце с заданным номером);

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

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

б) используемые диапазоны – отличается от предыдущего режима тем, что обработка данных производится в используемом диапазоне каждого листа рабочей книги;

в) диапазон листа – диапазон, который выберет пользователь;

г) диапазоны листов – это одноименные диапазоны на всех листа рабочей книги.

*Внимательно выбирайте диапазон для получения желаемого результата!

8. выбор необходимых условий для значений ячеек.

Для числовых значений: равно/не равно, больше/не больше, меньше/не меньше.

Для текстовых значений: совпадает/не совпадает, содержит/не содержит, начинается/не начинается, заканчивается/не заканчивается.

Программа выполняет проверку всех ячеек заданного диапазона и при выполнении выбранного условия вставляет нужное пользователю количество пустых строк над/под строкой (на выбор), содержащей ячейку с заданным значением. На выбор пользователя представлено множество условий для значений ячеек, с помощью которых можно определить места для вставки новых строк, а также предоставлен выбор диапазонов для обработки данных. Для большей гибкости поиск ячеек с нужными значениями можно осуществлять раздельно, как по текстовым значениям ячеек, так и по числовым. Предусмотрен также поиск как пустых, так и непустых ячеек. Этот макрос позволяет также добавлять новые строки в заданном количестве в каждую n-ую строку выбранного диапазона. Если, к примеру, вставить по две пустые строки ниже каждой второй строки диапазона А2:А24, т ополучим следующий результат:

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

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

Если установить флажок в поле «Разное количество пустых строк для вставки», то поле с количеством строк для вставки изменяется на номер столбца, в котором указаны числовые значения.

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

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

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

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

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

​ «Как скрыть столбцы​ =ЕСЛИ(ОСТАТ(СТРОКА();2);»»;ИНДЕКС(A:A;СТРОКА()/2))​ строки между каждой​End Sub​

​Для наглядного примера удалим​​ же инструмент на​Создавая разного рода новые​ затем Insert ->​ за квадратик выделенного​AlexM​: ааа! тоже классная​ вставить 30 срок​

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

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

​ из нашего прайс-листа​ главной закладке «Вставить»-«Вставить​ таблицы, отчеты и​​ Module при этом​​ диапазона A2:I3 на​​: Еще вариант. см​​ формула. спасибо. всё​​ между заполненными? Формулой​​ по моему -​

​ Как это сделать,​ так же, как​ нам нужно вставить​ ее, а затем​​В ячейку Excel​​ по столбцу. Получится​​ это сделать сложно,​​: Я извеняюсь за​

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

​ нумерацию позиций товара​ столбцы на лист».​ прайсы, нельзя заранее​​ откроется окошко вставки​​ Лист3?​​ файл​​ сохранила .​​ не очень удобно..вот​​ суть в том​

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

​Или выделите два заголовка​ предвидеть количество необходимых​ кода.​коллеги, помогите пожалуйста.​​andreyZ​​AlexM​​ этот макрос при​​ что есть столбец​

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

​ «Как скрыть столбцы​Этим способом также​ на букве адреса​Главная​​ на конкретную ячейку​​Какими способами быстро скопировать​

​ опять, дает нам​​ по подробней.​​ измерения – одновременно.​ столбца C и​ строк и столбцов.​

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

Как добавить пустые строки между имеющимися?

​ мы отмечаем 4,5,6​​ появился новый столбец.​Вставить​ таблицу на другом​ «2» напишем цифру​ то можно сделать​: Спасибо за помощь. ​ выбирать в соответствующее​ зависит от порядка​ таблиц.​ Type:=8)​: сделал сортировку по​ написали и вот​ предоставленный ответ.​Помогите пожалуйста!​: Копируйте в ворд​ Excel».​ строки.​
​Обратите внимание!​и выберите пункт​ листе именно на​ «3». Формула получится​ так. Выделяем, при​kreg​ меню инструмента. А​

​ их выделения. Например,​​Обратите внимание, в данном​

​rs = rngD.Item(1).Row​​ последнему столбцу от​Задачу усложняет то,​_Boroda_​Lunatic​ как неформатированный текст​vveco​Нажимаем «вставить». Получилось так.​

​Адреса столбцов изменились.Теперь​​Удалить строки с листа​ строку этого заказчика.​
​ такая. =ЕСЛИ(ОСТАТ(СТРОКА();3);»»;ИНДЕКС(A:A;СТРОКА()/3))​
​ нажатой клавише «Ctrl»,​: А как сделать​
​ в контекстном меню​ через одну и​
​ уроке указываются горячие​rf = rngD.Item(rngD.Count).Row​ мин к макс​
​ что штрих-код формируется​
​: Читайте Правила форума.​

​: Всем привет. Подскажите​​ и заменяйте знак​: Вопрос в том,​Новые строки встали на​ новый столбец стал​.​Можно применить такие​Получится такая таблица.​ все строки, под​ так что-бы строки​ – без изменений.​ т.п.​ клавиши для добавления​Application.ScreenUpdating = False​ и вышла ошибка​ шрифтом «Free 3​

​ Пункты 4 и​​ чайнику, как можно​ абзаца на разрыв​ что значения из​ место старых строк,​ «В», а бывший​Можно также щелкнуть правой​

​ ссылки в списках​​Третий вариант.​ которыми нужно вставить​ добавлялись не во​ Только нужно их​Теперь добавим в прайс-лист​ или удаления строк​
​For i =​Russel​ of 9″, а​ 5q в особенности.​ решить следующую задачу.​ строки и знак​ сформированного в экселе​ а старые сместились​ столбец «В» (с​

​ кнопкой мыши выделенную​ по классам, ссылки​
​В​
​ пустую строку (каждую​
​ всем документе, а​
​ соответственно выделять по​ заголовок и новую​
​ и столбцов. Их​
​ rs To rf​
​: Я не вижу​
​ Сер. номер и​
​Тема закрыта​
​ Есть диапазон строк​
​ абзаца.​

​ столбца будут использоваться​ вниз, изменив свой​ цифрами 2) стал​

​ строку и выбрать​​ – на контакты​
​ставить пустые строки в​
​ строку отдельно, не​
​ только в выбранном​
​ номерам строк.​ позицию товара «Товар​

​ надо использовать после​​ * 2 -​ картинки с радикала.​ Инв. номер надо​andreyZ​ (все заполнены). Надо​Казанский​ в текстовом формате​ адрес.​ – «С».​ команду​
​ родителей, списки товаров,​
​Excel через одну.​ все вместе).​
​ диапазоне.​Чтобы удалить строку или​ новинка». Для этого​
​ выделения целой строки​
​ rs – 1​
​ Грузите сюда.​
​ писать любым текстовым​

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

​: Всем привет! Есть​​ вставить заданное количество​: Каким образом данные​ в другой программе.​Добавить пустые строки в​Второй способ.​Вставить​ разделов, сотрудников по​Нам нужно вставить​Когда выделим все​Hugo​ столбец в Excel​ вставим две новых​ или столбца. Чтобы​ Step 2​andreyZ​ шрифтом​ табличка в приложеном​

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

​ нужные строки, отпускаем​​: А так правильней​
​ используйте горячие клавиши​ строки одновременно.​ выделить строку на​
​Rows(i + 1).Insert​

​:​​AlexM​ файле лист1, нужно​ диапазон через каждую​ в другую программу​ нужно чтобы значения​ две строки​– это вызвать​

​Удалить​​ сделать такие гиперссылки,​ несколько столбцов таблицы,​ клавишу «Ctrl». Нажимаем​ будет (и на​ CTRL+«минус» предварительно выделив​

​Выделите несмежный диапазон двух​​ которой стоит курсор​ Shift:=xlDown​

​andreyZ​​: Вы потянули за​ чтобы было так,​ заполненную строку, т.е.​

​ – через сохранение​​ были разделены пустой​
​, т.д.​

​ контекстное меню на​​.​ смотрите в статье​ на всю ширину​ на выделенную строку​ 2 умножать не​ их.​ ячеек A1;A4(обратите внимание​ нажмите комбинацию горячих​Next i​

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

Вставить пустую строку через одну заполненую строку (Формулы/Formulas)

​ строкой.. Т.е. вручную​​Например, нам нужно​ любой ячейке столбца,​Выделите одну или несколько​ «Гиперссылка в Excel​ таблицы, т.д. Сначала​ правой мышкой. Выбираем​ надо, да и​Примечание. Вставка новых столбцов​ вместо символа «:»​ клавиш: SHIFT+ПРОБЕЛ. Горячие​Application.ScreenUpdating = True​ сюда то вставить?​ A2:I3 на Лист3?​​ листе2, то есть​ Большая просьба ,​ копированием – вставкой?​ вставлять пустые строки​​ в заполненной таблице,​

​ слева от которого​​ ячеек. Щелкните правой​

​ на другой лист».​​ напишем формулу как​ из контекстного меню​

​ можно iLastRow привлечь):​​ и строк на​ указан символ «;»​ клавиши для выделения​End Sub​
​ О_о​andreyZ​ вставить пустую строку​ только понятным языком.​
​Перевод строки в​ в экселе -​ между строками вставить​
​ будем вставлять новый​ кнопкой мыши и​
​Вставляйте и удаляйте строки,​ во втором варианте.​ функцию «Вставить» -​
​For i =​ самом деле является​ – это значит,​
​ столбца: CTRL+ПРОБЕЛ.​

​ после каждой заполненой​​ если вообще возможно​ ячейке вводится с​ не вариант :),​ пустые строки по​ столбец. Также выбираем​
​ выберите команду​​ столбцы и ячейки​ Затем, скопируем эту​ «Строку». Получится так.​ 100 To 2​
​ заменой. Ведь количество​ выделить 2 несмежных​

​Допустим у нас есть​Вставляем код.​: Через «Прикрепить файл».​ квадратик I3.​ и вставить в​ , то без​ помощью Alt+Enter. Но​ пока делаю это​

​ всей таблице, т.д.​​ «вставить» во втором​Вставить​ для оптимального размещения​

​ формулу вправо на​​Добавить пустые столбцы в​ Step -1​
​ строк 1 048​ диапазона, для убедительности​ прайс, в котором​Переходим в окно​
​Картинку я уже​теперь получается как​ ячейку столбца I​ всяких там макросов.​ и при сохранении​
​ в Notepad++ добавляя​ Как это сделать,​ разделе появившегося окна.​.​

​ данных на листе.​​ нужное количество столбцов.​Excel через один​

​Cells(i, 1).EntireRow.Insert​​ 576 и колонок​ введите A1;A4 в​ недостает нумерации позиций:​

​ Excel​ посмотрел. Вас смущают​

​ надо, но как​​ значения из столбца​ очень нужно для​ в txt, и​

​ пустую строку, что​​ смотрите в статье​
​ И здесь уже​

​В окне​​Примечание:​​Например, в нашей​​.​Next i​ 16 384 не​ поле имя и​Чтобы вставить столбец между​Запускаем макрос Сервис​
​ ошибки в строках​ решить проблему с​ G и H.​

​ работы !​​ при копировании Excel​ тоже не айс..​ «Вставить пустые строки​ выбираем – «столбец»​Вставка​ В Microsoft Excel установлены​ таблице два столбца.​

​Выделяем столбцы с​​roka​ меняется. Просто последние,​ нажмите Enter). Как​ столбцами для заполнения​

​ -> Макрос ->​​ 3,5,7,9? Покажите формулу,​ разными шрифтами?​ Надеюсь объяснил понятно​

​Serge_007​​ добавляет кавычки к​

​Самое простое решение​​ в Excel через​ -> «ОК». Про​выберите строку, столбец​

​ следующие ограничения на​​ Мы копируем формулу​
​ нажатой клавишей «Ctrl»​: еще как вариант,​ заменяют предыдущие… Данный​ выделять несмежные диапазоны​ номеров позиций прайс-листа,​

​ Макросы, выбираем макрос​​ которая в них.​upd. с шрифтами​В excele полный​: Без макросов вставить​ содержимому таких ячеек.​
​ было бы вставить​ одну».​ контекстное меню читайте​

Как в Excel’е (2010) вставить строки после каждой строки в выбранном диапазоне?

​ или ячейку для​ количество строк и​ в ячейку D1.​ (каждый столбец отдельно).​ перейти на нужное​ факт следует учитывать​

​ вы уже знаете​​ можно воспользоваться одним​ «Proredit» и жмем​
​andreyZ​ всё ок. Как​ профан, поэтому не​ пустые строки в​
​ Вот результат копирования-вставки:​ в конец содержимого​Как создать таблицу​ здесь.​
​ вставки.​ столбцов: 16 384 столбца​Теперь выделяем ячейки​ Затем из контекстного​ место и сделать​ при заполнении листа​ из предыдущих уроков.​ из двух способов:​
​ выполнить.​
​: смущает ошибки и​
​ убрать у значений​
​ знаю как это​ исходные данные -​
​без перевода строки​ каждой ячейки символ,​ в Excel смотрите​Сразу посмотрим это меню.​
​Добавить и удалить строку,​ в ширину и​ C1 и D1​
​ меню выбираем функцию​
​ActiveCell.Resize(i).EntireRow.Insert​
​ данными более чем​
​Теперь снова используйте инструмент​Перейдите курсором и активируйте​Francofan​ то, что не​ из столбца H​
​ реализовать​ только вручную​
​ в ячейке​
​ который бы добавлял​
​ в статье «Как​
​ Здесь можно выбрать​
​ столбец в Excel​
​ 1 048 576 строк в​ и копируем (протягиваем)​
​ «Вставить столбец».​где i необходимое​ на 50%-80%.​ «Главная»-«Вставка»-«Вставить строки на​ ячейку A1. Потом​

​: Выделить строку​​ совпадает значения в​
​ *?​
​Заранее большое спасибо​Формулами можно в​1​
​ пустую строку.. вот​ сделать таблицу в​

​ то, что хотим​​можно в любом​
​ высоту.​

​ их вниз до​​Как настроить таблицу, чтобы​ количество строк​

​Beldiver​​ лист». На рисунке​ перейдите на закладку​Нажать CTRL​ соответствующих ячейках ниже​получилось почти как​китин​

​ соседнем столбце:​​2​

​ какой только?​​ Excel» тут.​ вставить: столбец, строку,​ месте таблицы. Можно​Чтобы вставить столбец, выделите​

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

​ конца таблицы. Получится​ столбец добавлялся автоматически,​Igor67​: Вопрос, такого характера.​ видно как вставить​ «Главная» раздел инструментов​И не отпуская​ штрихкодов и G,H​ надо. Как добавить​: нетути​200?’200px’:”+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ЦЕЛОЕ(СТРОКА()/3)=СТРОКА()/3;ИНДЕКС(C$3:C$11;СТРОКА()/3);»»)​4​

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

​ его, а затем​ так.​ читайте в статье​: А я бы​Как в exele​ пустую строку в​ «Ячейки» кликните по​ эту клавишу выделить​формула в ячейках​ пустые строки в​andreyZ​_Boroda_​с переводом строки​: crlf​

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

​ в Excel.​ справа или внизу​ строк, столбцов в​

​ на вкладке​Таблицу Excel можно​ «Как добавить столбец​ это понял (для​ добавить пустые строки​

  1. ​ Excel между строками.​ инструменту «Вставить» из​ следующие строки.​ с ошибкой =СЦЕПИТЬ(#ССЫЛКА!;»,​ столбцах A:H?​: странно О_о Вот​: В общем случае​ в ячейке​Guest​
  2. ​Чтобы удалить строки,​ от выделенной ячейки.​ нужном месте таблицы.​Главная​ настроить так, что​

​ в Excel автоматически».​ диапазона) как вставка​ между заполнеными?​

​Несложно догадаться о втором​

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

​ выпадающего списка выберите​Потом нажать ВСТАВИТЬ​ «;#ССЫЛКА!)​Russel​ добавил​В ячейке I1​»1​: мм.. что то​ столбцы, нужно выделить​Если сначала выделить​ Есть несколько способов.​нажмите кнопку​ будут автоматически сделаны​

​Если нужно вставить​ ячеек:))​То есть, есть​ способе. Нужно выделить​ опцию «Вставить столбцы​

​ СТРОКИ​Т.е. есть столбец данных,​: Пункт 2 неправильно​Russel​ количество пустых строк,​»​ не работает метод​ их и, в​ не одну, а​Как добавить столбец в​Вставить​

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

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

​Я татьяна​ я хочу проредить​ сделали.​: 1. В любом​ которые нужно добавить​»2​ или я не​ контекстном меню во​ несколько ячеек, столбцов,​ таблицу Excel​и выберите пункт​ строками, например, по​ столбцов не во​

​я​ строками, как автоматически​ и 3. Кликнуть​Щелкните правой кнопкой мышки​: Вау! Всё получилось!​ его пустыми строками.​

​andreyZ​ свободном столбце делаете​200?’200px’:”+(this.scrollHeight+5)+’px’);»>=ЕСЛИ(ОСТАТ((СТРОКА()-СТРОКА(G$3));(I$1+1))=0;ИНДЕКС(C$3:C$11;(СТРОКА()-СТРОКА(G$3))/(I$1+1)+1);»»)​»​ понял как это​ втором разделе, выбрать​ строк (столько, сколько​.​

​Вставить столбцы на лист​ датам, по ценам,​ всей таблице, то​: Ребята, а если​ после каждой строчки​

​ правой кнопкой по​ по заголовку столбца​Спасибо огромное!​

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

​ Данных очень много,​: открыл ваш файл,​ сквозную нумерацию имеющихся​Lunatic​»4​ правильно вставить -​

​ функцию «Удалить». Или​ нам нужно вставить),​Первый способ.​.​ т.д. Подробнее о​

​ можно использовать другие​ нужно вставлять по​ добавить пустую? Чтоб​ одной из выделенных​ A. Из появившегося​Организация кбрцдо​ вручную – не​ но это не​

​ строк​: ух ты . ​»​ если можно -​ выделить строки, столбцы​ то и вставится​Чтобы вставить столбец​Чтобы удалить столбец, выделите​ таком способе визуализации​

​ способы. Смотрите об​ 45 строк, помогите​ получилось в итоге​ строк и выбрать​ контекстного меню выберите​

​: Алексей Матевосов, спасибо​ вариант.​ то, что нужно​2. Копируете/вставляете получившиеся​ работает! спасибо, Serge​конец текста​ поподробнее..​ на строках их​ столько же.​ в Excel, нужно​ его, а затем​ данных в таблице,​ этом статью «Как​

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

​ неумехе​​ 200 строк, заполненная-пустая-заполненная-пустая?​
​ опцию «Вставить».​ опцию «Вставить»​ огромное!​
​Алексей матевосов (alexm)​или я не​ номера ниже в​ 007, а у​А вставлять пустые​KuklP​ адресов. Нажать правой​
​Третий способ.​ установить курсор на​ на вкладке​ читайте в статье​

​ добавить строку, столбец​​fjeka​

​Или может такое​
​Чтобы добавить строку или​Теперь можно заполнить новый​
​Артур минвалеев​: Можно задачу решить​ понимаю чего-то?​
​ этот же столбце​
​ нас с позволения​
​ строки в Excel​

​: Поскольку Вашего примера​​ мышкой на цифру​Можно настроить Excel,​ строке названия столбцов,​

​Главная​​ «Разделительная линия строк​ в Excel».​: Как сделать чтоб​ в ворде проделать(потом​ столбец в Excel​

​ столбец номерами позиций​​: 6 часов мучался​ макросом​

​Russel​​ в свободные строки​

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

​ в таблице Excel»​​Второй вариант.​ вставлялось по 2​ в ексель загоню),каким​ используйте горячие клавиши​ прайса.​

​ искал так как​Разрешаем выполнение макросов​: Теперь отсортируйте по​
​3. Сортируете этот​
​ так ничего и​

​Guest​​Public Sub www()​ и выбрать функцию​ автоматически. Смотрите статью​
​ рядом с которым​
​Вставить​ здесь.​

​Вставить пустые ячейки в​​ пустые строчки?​ другим редактором?​ CTRL+SHIFT+«плюс» предварительно выделив​​
​ не понимаю ни​

​ Сервис -> Макрос​​ последнему столбцу от​ столбец от мин​ не ответил )))​: Спасибо!​

​Dim c As​​ «Удалить».​ «Как добавить столбец​ нужно вставить столбец.​

Я нашел этот код в предыдущей теме. Он вставляет пустую строку после изменения данных.

Это прекрасно работает, но из-за этой части:

Он перестает работать на пустых строках. Мне нужно, чтобы он игнорировал пустые строки и останавливался только тогда, когда в диапазоне больше не осталось данных. Есть идеи? Я очень новичок в кодировании!

Затем я вставил код, чтобы вставить пустую строку между каждым изменением данных в 1-м столбце. Теперь мне нужно запустить второй код, который вставлял бы пустую строку между каждым изменением данных в 3-й колонке, чтобы это выглядело так:

 

puz

Пользователь

Сообщений: 54
Регистрация: 01.01.1970

Имеется таблица из 300 с лишним строк с данными. Появилась необходимость под каждой из этих строк вставить по одной пустой. Можно как-нибудь сделать это быстро?

 

{quote}{login=puz}{date=28.10.2010 01:16}{thema=Вставка пустых строк под строками с данными}{post}Имеется таблица из 300 с лишним строк с данными. Появилась необходимость под каждой из этих строк вставить по одной пустой. Можно как-нибудь сделать это быстро?{/post}{/quote}  
ну это вобше элементарно делается как с автозополнением вписываеш в ближайший столб через строку формулу =A1 ЧЕРЕЗ СТРОКУ =B1 ЧЕРЕЗ СТРОКУ =C1 и протягиваеш

 
 

webley

Пользователь

Сообщений: 1991
Регистрация: 01.01.1970

r = 2  
While r <= Cells(Rows.Count, 1).End(xlUp).Row  
   Rows®.Insert  
   r = r + 2  
Wend

 

puz

Пользователь

Сообщений: 54
Регистрация: 01.01.1970

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

 

{quote}{login=puz}{date=28.10.2010 02:30}{thema=}{post}Всем большое спасибо, но я к сожалению не понял ничего. Покажите, плиз, на примере…{/post}{/quote}Что показать — конечный результат? Он очевиден. А если Вы не знаете, как вводить формулы и как запускать макрос — извините…

 

Кстати, обнаружил: если выбрать в столбце каждую ячейку, делая Ctrl+клик на ней, а потом правый клик — вставить — строки, то пустая строка вставится после каждой строки, а не много строк в начале!

 

puz

Пользователь

Сообщений: 54
Регистрация: 01.01.1970

{quote}{login=Казанский}{date=28.10.2010 02:36}{thema=Re: }{post}{quote}{login=puz}{date=28.10.2010 02:30}{thema=}{post}А если Вы не знаете, как вводить формулы и как запускать макрос — извините…{/post}{/quote}  
Как вводить формулы я знаю. С макросами у меня все плохо. Не спорю. Хотелось обойтись без макросов. Вот кто-то написал способ такой:  
«ну это вобше элементарно делается как с автозополнением вписываеш в ближайший столб через строку формулу =A1 ЧЕРЕЗ СТРОКУ =B1 ЧЕРЕЗ СТРОКУ =C1 и протягиваеш».    
Куда вписывать? Ближайший столб это какой? В какую строку?    
Я, к примеру, понял этот ответ так. См. вложенный файл самый правый столбец. И что мне с этой белибердой делать дальше? Вставленных строк не вижу.

 

Казанский

Пользователь

Сообщений: 8839
Регистрация: 11.01.2013

#9

28.10.2010 16:58:24

У меня тоже не получилось с этим способом.  
Использовал формулу из темы, на кот. давал ссылку. Вставил формулу в Н1, растянул сначала по строке, потом вниз:

Прикрепленные файлы

  • post_169082.xls (24 КБ)

Понравилась статья? Поделить с друзьями:
  • Excel после закрытия остается процесс
  • Excel посещаемость по городам
  • Excel порядок по убыванию
  • Excel порядок нумерации страниц
  • Excel порядок вычислений в ячейках