Вставить определенное количество строк excel vba
Как быстро вставить пустые / пустые строки в Excel?
Большинство из нас может столкнуться с проблемой в Excel, когда нам нужно вставить пустую строку между каждой из существующих строк, и все мы знаем, как вставить пустую строку вручную. Но вставка сотен пустых строк будет утомительной задачей, если вы вставляете каждую строку отдельно. Вот несколько быстрых приемов, которые помогут вам решить эту проблему.
Вставьте пустые строки с функцией сортировки
Этот метод более простой, но обходной для вставки пустых строк между выходящими строками. Вы можете сделать следующее:
1. Вам нужен пустой столбец рядом с вашими данными. Например, у меня рабочий лист содержит A1: E9, вы можете использовать столбец F.
2. В ячейку F1 введите число 1, а в ячейку F2 введите 2.
3. Выберите число 1 и число 2 и дважды щелкните маркер заполнения, Excel автоматически заполнит ячейки в столбце F.
4. Затем скопируйте этот новый столбец F (F1: F9), выберите ячейку F10 и вставьте номер автозаполнения из F1: F9. Смотрите скриншот:
5. Затем щелкните Данные > СортироватьИ Предупреждение о сортировке появится диалоговое окно, выберите Расширить выбор и нажмите Сортировать… См. Снимок экрана:
6. И Сортировать появится диалоговое окно, выберите номер 1 из Сортировать по: раскрывающийся список, а затем щелкните OK кнопка. Смотрите скриншот:
Затем новые пустые строки были вставлены в существующие строки. Смотрите скриншот:
Внимание: Если вы хотите вставить две или три пустых строки между каждой строкой, вы можете скопировать новый столбец с автозаполнением два или три раза, чтобы добавить новые строки.
Быстро вставляйте определенное количество пустых строк в диапазон в Excel:
Вставить пустые строки и столбцы полезности Kutools for Excel может помочь вам быстро вставить определенное количество пустых строк или столбцов в диапазон в Excel.
Загрузите Kutools для Excel прямо сейчас! (30-дневная бесплатная трасса)
Вставьте альтернативные пустые строки с кодом VBA
Если описанный выше способ немного сложен, вы можете использовать следующий код VBA для его решения.
1. Нажмите клавиши Alt + F11, чтобы открыть Microsoft Visual Basic для приложений окно, затем щелкните Вставить > Модули и введите следующий код в Модули:
Код VBA: вставка пустых строк в Excel
2. Затем нажмите или нажмите клавишу F5, чтобы запустить код. Во всплывающем диалоговом окне Kutoos for Excel выберите диапазон, в который вы будете вставлять пустые строки, а затем нажмите кнопку ОК. Смотрите скриншот:
Затем между каждыми двумя строками была вставлена новая пустая строка. Смотрите скриншот:
Быстро вставляйте определенное количество пустых строк с помощью Kutools for Excel
Вышеупомянутые два метода просто относятся к вставке пустых строк между каждой строкой, для вставки пустой строки или нескольких строк после каждой n-й строки, как вы должны делать? Здесь я рекомендую Вставить пустые строки и столбцы полезности Kutools for Excel. Эта функция может помочь быстро вставить определенное количество пустых строк после каждых n-ых строк в определенный диапазон. Пожалуйста, сделайте следующее.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Выберите диапазон, в который вы хотите вставить пустые строки, и щелкните Кутулс > Вставить > Вставить пустые строки и столбцы. Смотрите скриншот:
2. в Вставить пустые строки и столбцы диалоговое окно, выберите Пустые строки в типе Insert укажите количество строк интервала, в которые вы будете вставлять пустые строки, и количество строк, которые вы хотите вставить, а затем щелкните значок OK кнопка. Смотрите скриншот:
Затем вы можете увидеть, что через каждые две строки были вставлены определенные пустые строки. Смотрите скриншоты:
Внимание: число в Интервал и Ряды можно настроить в соответствии с вашими потребностями. Например, вы можете вставить три, четыре, пять… пустых строк после каждой, двух, трех… строк.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Office Tab - Tabbed Browsing, Editing, and Managing of Workbooks in Excel:
Office Tab brings the tabbed interface as seen in web browsers such as Google Chrome, Internet Explorer new versions and Firefox to Microsoft Excel. It will be a time-saving tool and irreplaceble in your work. See below demo:
У меня есть Excel, который позволяет записывать пищу, которую вы съели за определенный день и прием пищи. У меня есть сетка, в которой каждая линия представляет еду, которую вы съели, сколько в ней сахара и т. Д.
Затем я добавил кнопку сохранения, чтобы сохранить все данные в таблице на другом листе.
Это то, что я пробовал
Но я продолжаю получать ту же ошибку в выделенной строке:
Что я делаю не так?
Вы не говорите, какую версию Excel вы используете. Это написано для 2007/2010 (для Excel 2003 требуется другая оценка)
Вы также не говорите, как вы звоните addDataToTable и что вы переходите в arrData .
Я предполагаю, что вы передаете массив на основе 0 . Если это так (и таблица начинается в столбце A ), то iCount будет отсчитывать от 0 , а .Cells(lLastRow + 1, iCount) попытается сослаться на столбец 0 , который недействительным.
Вы также не пользуетесь преимуществом ListObject . В вашем коде предполагается, что ListObject 1 находится в строке 1 . Если это не так, ваш код поместит данные в неправильную строку.
Вот альтернатива, использующая ListObject
Может вызываться разными способами:
Поскольку использование ListRow.Add может стать огромной пробкой, мы должны использовать его только в том случае, если этого нельзя избежать. Если для вас важна производительность, используйте эту функцию для изменения размера таблицы, что намного быстрее, чем добавление строк рекомендуемым способом.
Имейте в виду, что это перезапишет данные под таблицей, если они есть!
Эта функция основана на принятом ответе Криса Нилсена
Просто удалите таблицу и создайте новую таблицу с другим именем. Также не удаляйте всю строку для этой таблицы. Кажется, когда вся строка, содержащая строку таблицы, удаляется, она повреждает DataBodyRange.
У меня была такая же проблема раньше, и я исправил ее, создав ту же таблицу на новом листе и удалив все диапазоны имен, связанные с таблицей, я считаю, что когда вы используете листобъекты, вам не разрешено иметь диапазоны имен, содержащиеся в вашем таблица надеюсь, что это поможет спасибо
На самом деле я только что обнаружил, что если вы хотите добавить несколько строк под выделенным в вашей таблице Selection.ListObject.ListRows.Add AlwaysInsert:=True работает очень хорошо. Я просто продублировал код пять раз, чтобы добавить в свою таблицу пять строк.
Tbl.ListRows.Add у меня не работает, и я считаю, что многие другие сталкиваются с той же проблемой. Я использую следующий обходной путь:
Надеюсь, это поможет кому-то там.
Загляните в эту проблему сегодня (сбой Excel при добавлении строк с помощью .ListRows.Add ). Прочитав этот пост и проверив свою таблицу, я понял, что вычисления формулы в некоторых ячейках в строке зависят от значения в других ячейках. В моем случае ячейки в более высоком столбце И даже ячейки с формулой!
Решение заключалось в том, чтобы заполнить новую добавленную строку сзади вперед, чтобы вычисления не ошиблись.
Excel обычно может работать с формулами в разных ячейках, но кажется, что добавление строки в таблицу приводит к перерасчету в порядке столбцов (A, B, C и т. Д.).
На листе Excel вы можете вставить пустую строку между существующими строками с помощью функции Вставить. Но если у вас большой диапазон данных и вам нужно вставить две пустые строки после каждой третьей n-й строки, как вы могли бы завершить эту работу быстро и удобно?
- Вставьте определенное количество пустых строк в диапазон данных через фиксированные интервалы с кодом VBA
- Вставьте определенное количество пустых строк в диапазон данных на основе значений ячеек с кодом VBA
- Вставляйте определенное количество пустых строк в диапазон данных через фиксированные интервалы с помощью удобной функции
- Копируйте и вставляйте строки несколько раз на основе определенных чисел с кодом VBA
- Копируйте и вставляйте строки несколько раз на основе определенных чисел с удивительной функцией
Вставьте определенное количество пустых строк в диапазон данных через фиксированные интервалы с кодом VBA
Следующий код VBA может помочь вам вставить определенное количество строк после каждой n-й строки в существующих данных. Пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: вставка определенного количества строк в данные через фиксированные интервалы
3. После вставки этого кода нажмите F5 нажмите клавишу для запуска этого кода, появится всплывающее окно, напоминающее вам о выборе диапазона данных, в который вы хотите вставить пустые строки, см. снимок экрана:
4. Нажмите OK , появится другое окно подсказки, введите количество интервалов между строками, см. снимок экрана:
5. Продолжайте нажимать OK В следующем всплывающем окне подсказки введите количество пустых строк, которые вы хотите вставить, см. снимок экрана:
6. Затем нажмите OK, а пустые строки вставлялись в существующие данные через равные промежутки времени, см. снимки экрана:
Вставьте определенное количество пустых строк в диапазон данных на основе значений ячеек с кодом VBA
Иногда вам может потребоваться вставить пустые строки на основе списка значений ячеек, в этом случае приведенный ниже код VBA может оказать вам услугу, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: вставьте определенное количество пустых строк на основе списка чисел:
3. После вставки этого кода нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне выберите список чисел, на основе которых вы хотите вставить пустые строки, см. снимок экрана:
4, Затем нажмите OK, и вы получите необходимые результаты, как показано на следующих снимках экрана:
Вставляйте определенное количество пустых строк в диапазон данных через фиксированные интервалы с помощью удобной функции
Если вы не знакомы с приведенным выше кодом VBA, Kutools for Excel также может помочь вам, это Вставить пустые строки и столбцы Функция может быстро и легко вставлять определенное количество строк или столбцов в существующие данные с фиксированными интервалами.
Примечание: Чтобы применить это Вставить пустые строки и столбцы , во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите диапазон данных, в который вы хотите вставлять пустые строки через определенные промежутки времени.
2. Нажмите Кутулс > Вставить > Вставить пустые строки и столбцы, см. снимок экрана:
3. В Вставить пустую строку и столбцы диалоговое окно, выберите Пустые строки вариант из Тип вставки, а затем укажите количество интервалов и пустых строк, которые вы хотите использовать, как показано на следующем снимке экрана:
4. Затем нажмите OK кнопку, и пустые строки были вставлены в выбранный диапазон с определенным интервалом, как показано на следующем снимке экрана:
Копируйте и вставляйте строки несколько раз на основе определенных чисел с кодом VBA
Предположим, у вас есть диапазон тада, и теперь вы хотите скопировать каждую строку и вставить их несколько раз в следующую строку на основе списка чисел, как показано на скриншотах ниже. Как решить эту задачу на листе Excel?
1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.
Код VBA: копируйте и вставляйте строки несколько раз в зависимости от конкретных чисел:
3. После вставки этого кода нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне выберите список чисел, которые вы хотите скопировать, и вставьте строки данных на основе, см. снимок экрана:
4, Затем нажмите OK кнопку, и определенное количество строк было скопировано и вставлено под каждой исходной строкой, см. снимки экрана:
Копируйте и вставляйте строки несколько раз на основе определенных чисел с удивительной функцией
Если у вас есть Kutools for Excel, С его Повторяющиеся строки / столбцы на основе значения ячейки функция, вы можете быстро и легко вставлять строки или столбцы на основе списка чисел.
Примечание: Чтобы применить это Повторяющиеся строки / столбцы на основе значения ячейки, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки, см. снимок экрана:
2. В Копировать и вставлять строки и столбцы диалоговое окно, выберите Копировать и вставлять строки вариант в Тип раздел, затем выберите диапазон данных, который вы хотите продублировать, а затем укажите список значений, на основе которых вы хотите копировать строки, см. снимок экрана:
4, Затем нажмите Ok or Применить кнопку, вы получите такой результат, как вам нужно:
Вставить одну, пять или десять пустых строк в Excel не составляет труда. А с помощью надстройки можно быстро вставить большое количество строк на лист Excel, а также добавлять строки по различным условиям.
Описание работы
Иногда необходимо вставлять большое количество пустых строк по различным условиям и в ручную этот процесс занимает много времени. Для упрощения данного процесса в функционал надстройки добавлена функция «Вставить пустые строки».
Чтобы воспользоваться функцией перейдите на вкладку «VBA-Excel» в разделе «Ячейки и диапазоны» откройте меню «Вставить», выберите «Вставить пустые строки».
Появится диалоговое окно с выбором опций для вставки строк. Необходимо выбрать опции в соответствии с тем какая стоит задача.
Вставка произвольного количества строк
Для этого в поле «Условие» необходимо выбрать пункт «Вставить N пустых строк»
Для того что бы указать в какую строку вставлять пустые строки нужно в поле «Начиная со строки» указать номер нужной строки.
Это можно сделать двумя способами:
- Вручную ввести номер строки.
- Нажать кнопку «…» расположенную рядом с полем «Начиная со строки», после чего откроется окно выбора строки. Далее нужно выбрать любую ячейку находящуюся в нужной строку и нажать «Ок»
После чего в поле Количество указать сколько пустых строк нужно вставить. И нажать кнопку «Ок»
Например, нужно вставить 5 пустых строк с 7 строки. тогда ввод в диалоговое окно будет выглядеть следующим образом:
Вставка строк через заданное количество строк
Для этого в поле «Условие» должно быть выбрано «Вставлять через каждые N строк».
В данном режиме нужное количество строк вставляется через равные промежутки в пределах, указанных в поле «Диапазон»
В поле «Диапазон» можно указать «Текущий лист» или «Выделение».
- В первом случае вставляются пустые строки с первой строки до последней, в которой есть какие-либо значения.
- Во втором пустые строки вставляются только в рамках текущего выделения.
Как и в первом режиме нужно указать строку, с которой начнет работать алгоритм и количество пустых строк
А в поле «Вставлять через» указывается сколько строк будет пропускаться при вставке следующих пустых строк.
Например, нужно вставить 2 пустые строки через каждые 2 строки, начиная с 6 строки, тогда диалоговое окно примет следующий вид:
Вставка строк при изменении значения в столбце
Для этого в поле «Условие» должно быть выбрано «Вставлять по изменению значения в столбце»
В этом режиме пустые строки вставляются в том случае если в выбранном столбце меняется значение.
Для указания столбца, по которому просматриваются значения, нужно в поле «Столбец» ввести имя столбца. Это можно сделать двумя способами:
- Вручную ввести имя столбца
- Нажать кнопку «…» расположенную рядом с полем «Столбец», после чего откроется окно выбора столбца. Далее нужно выбрать любую ячейку находящуюся в нужном столбце и нажать «Ок»
Например, вам нужно отделить каждый новый артикул в столбце А пустой строкой. Тогда диалоговое окно примет вид:
Вставка строк при определенном значении в столбце
Для этого в поле «Условие» должно быть выбрано «Вставлять по значению в столбце».
В этом случае вставка пустых строк происходит по совпадению значения выбранного столбца со значением указанным в поле «Значение».
Например, нужно вставить пустые строки там, где в столбце «Флаг» находится значение «f». В этом случае выбираем следующие настройки:
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.
Предположим, у вас есть диапазон данных, и вы хотите автоматически вставлять пустые строки выше или ниже определенного значения в Excel, например, автоматически вставлять строки ниже нулевого значения, как показано ниже. В Excel нет прямого способа решить эту задачу, но я могу ввести код макроса для автоматической вставки строк на основе определенного значения в Excel.
Вставить строку ниже на основе значения ячейки с помощью VBA
Вставить строку выше на основе значения ячейки с помощью Kutools for Excel
Вставить строку ниже на основе значения ячейки с помощью VBA
Чтобы вставить строку на основе значения ячейки, запустив VBA, выполните следующие действия:
1. Нажмите Alt + F11 одновременно, а Microsoft Visual Basic для приложений окно выскакивает.
2. Нажмите Вставить > Модули, затем вставьте ниже код VBA во всплывающий Модули окно.
VBA: вставьте строку ниже на основе значения ячейки.
3. Нажмите F5 ключа или Run нажмите кнопку, появится диалоговое окно и выберите столбец, содержащий ноль. Смотрите скриншот:
4. Нажмите OK. Тогда пустые строки будут вставлены ниже нулевого значения.
Функции:
1. Если вы хотите вставить строки на основе другого значения, вы можете изменить 0 на любое значение, которое вы хотите в VBA: Если Rng.Value = "0", то .
2. Если вы хотите вставить строки выше нуля или другого значения, вы можете использовать приведенный ниже код vba.
VBA: вставить строку выше нулевого значения:
Вставить строку выше на основе значения ячейки с помощью Kutools for Excel
Если вы не знакомы с VBA, вы можете попробовать Kutools for Excel's Выбрать определенные ячейки утилита, а затем вставьте строки выше.
После установки Kutools for Excel, сделайте следующее: (Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите список, из которого вы хотите найти определенные ячейки, и нажмите Кутулс > Выберите > Выбрать определенные ячейки. Смотрите скриншот:
2. В появившемся диалоговом окне отметьте Весь ряд вариант, а затем перейдите, чтобы выбрать Равно из Конкретный тип список, а затем введите значение, которое вы хотите найти, в правом текстовом поле. Смотрите скриншот:
3. Нажмите Ok, и появится диалоговое окно, напоминающее количество выбранных строк, просто закройте его.
4. Поместите курсор в одну выбранную строку и щелкните правой кнопкой мыши, чтобы выбрать Вставить из контекстного меню. Смотрите скриншот:
Теперь строки вставляются выше на основе определенного значения.
Читайте также: