Добавить строки excel после строк - Word и Excel - помощь в работе с программами

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

Смотрите такжеmyActiveColumn = ActiveCell.Column  совпадают. myLastRow = Cells(Rows.Count,Rows(i).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelowИ, наконец, чтобы ввести обращениями к диапазону. = i + «после», а то ks, k1 Ass = 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 = TrueCtrl + Enter чай, либо пройти
As Long: i положению вещей…With Application
NextКакое-то слово 1 через одну и подряд. Как добавить всем документе, а
Вставить  несколько столбцов таблицы,,
двух столбцов. строк между группами.tblMy() = Cells(1,End Subвместо обычного Enter. по ссылке, которую
= 200 ‘200
anddrei55
.ScreenUpdating = Falses = Mid(s, Какое-то слово 1
т.п. формулой между этими только в выбранноми выберите пункт на всю ширинудве строки, ячейки,tblMy() = Cells(1,Rows(i).Resize(2).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelow ActiveCell.Column).Resize(myLastRow, 2).ValueSergeyKorotun
И все! Просто дал 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 > 0Z 1).End(xlUp).RowEnd 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,

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

: 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 Subabricos29 количество строк для’ Макрос записан

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

В первом столбце ячеек A1;A4(обратите внимание Пункты 4 иFor i =или таблице два столбца.
опять, дает нам с первой.’Делаем заголовок у’которая выше, не придется не немного

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 ExpressionJack Famous на форуме :
1)

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

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

planetaexcel.ru

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

’Если данные воRows(i).Resize(2).Insert Shift:=xlShiftDown, CopyOrigin:=xlFormatFromRightOrBelowСовсем не знаю вставьте обратно с: anddrei55, значит, придётся: anddrei55, а мой Sub УдалениеСтрок() Dimk1 = 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 = 10OLEGOFF выделять несмежные диапазоны – это вActiveCell.Resize(i).EntireRow.Insertи выберите пунктТаблицу Excel можно

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

excelworld.ru

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

выбрав параметр идеи, в каком: , 1 To ActiveSheet.UsedRange.Rowks1 = 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))

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

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

For i =

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

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

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

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

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

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

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

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

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

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

1 ThenActiveCell.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) Thenst_2=A2 // присвоитьDim tblA() As

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

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

exceltable.com

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

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

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

CyberForum.ru

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

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

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

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

 SubNext xNext i

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

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

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

anddrei55mtts54End IfEnd 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 FamousMsgBox «Строки добавлены!», надо вставить пустую: 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 ExplicitEnd 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 Asendif

.Weight = xlMedium раз таблицы с d = Nothing , Type:=8).Column lr End Sub пустую строку (ну
yfirst =20Выделяем несмежный диапазон ячеек «Ячейки» кликните по
Serge_007То есть, есть перейдет в другую можно использовать другиеApplication.ScreenUpdating = True в первой строке Longif st_1=a1and st_2<>a2End 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 ThenIrregular 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 Set1) этот код победить ): хотя вру. вышепредложенный способом, только нужно опцию «Вставить»: В общем случае

в ексель загоню),каким разделов, сотрудников по первом варианте. Нам значения в столбце заливка ячеек и’в переменную. Т.к. надо, так как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 номерам строк. двух столбцов: количество работает! спасибо, SergeFor 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 для оптимального размещенияКопируем формулу вниз: Люди добрые помогите Какой вариант должен 'если код будет ячейки колонки А1For i = надо заполнить (в Exit For End End Submtts54, я пробовали?GuestSub 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 AsUBound(tblMy, 1) To Dim tblMy() AsEnd 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 FamousSub 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 появляется столько, сколько
AlexMGuest.Третий вариант. Правил форума, а ячейка, строке, Long <> tblA(i - ссылку на предыдущую

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

excelworld.ru

1 To 9

Источник

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Чтобы вставить несколько столбцов:выделите столько же столбцов, сколько хотите добавить справа. Щелкните выделенные столбцы правой кнопкой мыши и выберите Вставить столбцы.

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

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

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

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

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

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

Чтобы вставить одну ячейку

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

Чтобы вставить несколько ячеек

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

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

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

См. также

Основные задачи в Excel

Общие сведения о формулах в Excel

Нужна дополнительная помощь?

Источник

Посмотреть видео — вставлять пустую строку после каждой строки в Excel

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

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

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

В этом руководстве я покажу вам несколько действительно простых способов вставить пустую строку после каждой строки в существующем наборе данных (или каждой n-й строки).

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

Использование вспомогательного столбца и функции сортировки

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

Ниже приведены шаги по вставке пустых строк между существующими строками:

Вставьте пустой столбец слева от набора данных. Для этого щелкните правой кнопкой мыши заголовок самого левого столбца и нажмите «Вставить».
Введите текст «HelperColumn» в A1 (вы можете использовать любой текст, который хотите).
Введите 1 в ячейку A2 и 2 в ячейку A3.
Выделите обе ячейки и поместите курсор в нижний правый угол выделения. Когда курсор изменится на значок плюса, дважды щелкните по нему. Это заполнит весь столбец увеличивающимися числами.
Перейдите к последней заполненной ячейке в вспомогательном столбце, а затем выберите ячейку под ней.
Введите 1 в эту ячейку и 2 в ячейку под ней.
Выделите обе ячейки и поместите курсор в нижний правый угол выделения.
Когда курсор изменится на значок плюса, щелкните и перетащите его вниз. Это заполнит ряд чисел (как мы получили на шаге 3). Убедитесь, что у вас больше цифр, чем в наборе данных. Например, если в наборе данных 10 записей, убедитесь, что на этом шаге заполнено не менее 10 ячеек. После этого ваш набор данных будет выглядеть, как показано ниже.
Выберите весь набор данных (включая все ячейки вспомогательного столбца).
Перейдите на вкладку «Данные».
Нажмите на опцию сортировки
В диалоговом окне Сортировка используйте следующие параметры:
- Сортировать по: Помощник
- Сортировка: значение ячейки
- Порядок: от наименьшего к наибольшему
Щелкните ОК. Это даст вам набор данных, как показано ниже.
Удалите вспомогательный столбец.

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

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

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

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

Ниже приведены шаги для этого:

Вставьте пустой столбец слева от набора данных. Для этого щелкните правой кнопкой мыши заголовок самого левого столбца и нажмите «Вставить».
Введите текст «HelperColumn» в A1 (вы можете использовать любой текст, который хотите).
Введите 1 в ячейку A2 и 2 в ячейку A3.
Выделите обе ячейки и поместите курсор в нижний правый угол выделения. Когда курсор изменится на значок плюса, дважды щелкните по нему. Это заполнит весь столбец увеличивающимися числами.
Перейдите к последней заполненной ячейке в вспомогательном столбце, а затем выберите ячейку под ней.
Введите 2 в эту ячейку и 4 в ячейку под ней. Мы используем числа, кратные 2, поскольку нам нужна одна пустая строка после каждых двух строк.
Выделите обе ячейки и поместите курсор в нижний правый угол выделения.
Когда курсор изменится на значок плюса, щелкните и перетащите его вниз. Это заполнит ряд чисел (как мы получили на шаге 3). Убедитесь, что вы получили число больше, чем есть в наборе данных. Например, если в наборе данных 10 записей, убедитесь, что вы набрали хотя бы до числа 10.
Выберите весь набор данных (включая все ячейки вспомогательного столбца).
Перейдите на вкладку «Данные».
Нажмите на опцию сортировки
В диалоговом окне Сортировка используйте следующие параметры:
- Сортировать по: Помощник
- Сортировка: значение ячейки
- Порядок: от наименьшего к наибольшему
Щелкните ОК. Это даст вам окончательный набор данных, как показано ниже (с пустой строкой после каждой второй строки набора данных).
Удалите вспомогательный столбец.

Точно так же, если вы хотите вставить пустую строку после каждой третьей строки, используйте цифры 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:

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

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

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

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

Вот и все!

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

Есть много разных способов запустить макрос в 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 вставить столбец между столбцами?

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

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

Перейдите курсором и активируйте ячейку A1. Потом перейдите на закладку «Главная» раздел инструментов «Ячейки» кликните по инструменту «Вставить» из выпадающего списка выберите опцию «Вставить столбцы на лист».
Щелкните правой кнопкой мышки по заголовку столбца 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 вставить столбец между столбцами?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

В этом курсе:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

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

Как вставить строку в Excel

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

Способ 1: вставка между строк

Первым делом разберемся, как добавить в Excel строки между строк, так как именно это действие пользователи производят чаще всего. А выполняется оно довольно просто:

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

Если вы хотите ускорить процесс вставки строки между строк, то можно прибегнуть к использованию горячих клавиш вместо контекстного меню. Дело в том, что окно «Вставить» вызывается нажатием клавиш Ctrl+ «+». Однако заметьте, что клавишу «плюс» вам необходимо нажимать на цифровой панели, которая расположена в правой части клавиатуры. После нажатия горячих клавиш появится то же самое окно, в котором необходимо выбрать пункт «Строку» и нажать кнопку ОК.

Способ 2: вставка в конце таблицы

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

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

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

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

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

Способ 3: создание «умной» таблицы

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

Выделите всю таблицу.
Перейдите на главную вкладку.
На панели выберите пункт «Форматировать как таблицу».
Из списка шаблонов выберите понравившийся.

Сразу после этого будет создана «умная» таблица. Теперь добавить новые строки можно в ней как в конце, так и в середине. Это был третий способ, как в Excel добавить строки, он же последний.

Заключение

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

Источник