Vba excel добавить строку в таблицу
У меня есть 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 и т. Д.).
Expression – выражение (переменная), возвращающее объект Range.
Параметры
| Параметр | Описание | Значения |
|---|---|---|
| Shift | Необязательный параметр. Определяет направление сдвига ячеек. Если параметр Shift опущен, направление выбирается в зависимости от формы* диапазона. | xlShiftDown (-4121) – ячейки сдвигаются вниз; xlShiftToRight (-4161) – ячейки сдвигаются вправо. |
| CopyOrigin | Необязательный параметр. Определяет: из каких ячеек копировать формат. По умолчанию формат копируется из ячеек сверху или слева. | xlFormatFromLeftOrAbove (0) – формат копируется из ячеек сверху или слева; xlFormatFromRightOrBelow (1) – формат копируется из ячеек снизу или справа. |
* Если диапазон горизонтальный или квадратный (количество строк меньше или равно количеству столбцов), ячейки сдвигаются вниз. Если диапазон вертикальный (количество строк больше количества столбцов), ячейки сдвигаются вправо.
Примеры
Простая вставка диапазона
Вставка диапазона ячеек в диапазон «F5:K9» со сдвигом исходных ячеек вправо:
Если бы параметр Shift не был указан, сдвиг ячеек, по умолчанию, произошел бы вниз, так как диапазон горизонтальный.
Вставка вырезанного диапазона
Вставка диапазона, вырезанного в буфер обмена методом Range.Cut, из буфера обмена со сдвигом ячеек по умолчанию:
Обратите внимание, что при использовании метода Range.Cut, точка вставки (в примере: Range("D2") ) не может находится внутри вырезанного диапазона, а также в строке или столбце левой верхней ячейки вырезанного диапазона вне вырезанного диапазона (в примере: строка 1 и столбец «A»).Вставка скопированного диапазона
Вставка диапазона, скопированного в буфер обмена методом Range.Copy, из буфера обмена со сдвигом ячеек по умолчанию:
Обратите внимание, что при использовании метода Range.Copy, точка вставки (в примере: Range("F2") ) не может находится внутри скопированного диапазона, но в строке или столбце левой верхней ячейки скопированного диапазона вне скопированного диапазона находится может.Вставка и перемещение строк
Вставка одной строки на место пятой строки со сдвигом исходной строки вниз:
Вставка четырех строк на место пятой-восьмой строк со сдвигом исходных строк вниз:
VBA - это язык программирования для тех, кто работает в Excel и других программах Office, поэтому можно автоматизировать задачи в Excel, написав так называемые макросы. Используя кодирование VBA, мы можем выполнять практически все задачи, которые мы выполняем в Excel, так как мы можем копировать, вставлять, удалять и т. Д.
Вставить строку - используется для вставки строки в Excel между другой строкой с помощью автоматизации, т.е. одним щелчком мыши.
Предположим, что мы вводим данные сотрудника в Excel, и мы пропустили некоторых сотрудников и хотим вставить данные недостающих между ними, поэтому нам нужно создать пробел и вставить строку для ввода их данных. Вместо вставки строки одна за другой мы можем автоматизировать задачу вставки строк с использованием VBA и создания макросов.
Есть много способов, с помощью которых мы можем вставить строки, используя кодирование VBA. Функция, используемая для вставки строки в VBA:
Диапазон (). Ряд (). EntireRow.Insert
Давайте рассмотрим, у нас есть набор данных, который состоит из столбцов, таких как Имя клиента , Продукт, Продажи, Количество, Стоимость доставки, Приоритет заказа.
Предположим, что нам нужно сместить столбцы вниз, чтобы вставить 3 новые строки между 3 и 4, чтобы вставить новую отсутствующую запись. Вместо того, чтобы вставлять строку один за другим, мы автоматизируем это, чтобы вставить все 3 строки одним щелчком мыши.
Как вставить строки в Excel VBA?
Ниже приведены различные примеры вставки строк в Excel с использованием кода VBA.
Вы можете скачать этот шаблон Excel для вставки строк VBA здесь - Шаблон Excel для вставки строк VBA
Пример № 1 - Использование всей строки
Выполните следующие шаги, чтобы вставить строки в Excel, используя код VBA.
Шаг 1: Для создания макроса нам нужно выбрать вкладку «Разработчик».
Шаг 2. После открытия вкладки «Разработчик» вставьте кнопку из группы «Элементы управления». Нажмите « Вставить» и выберите первый вариант из элементов управления ActiveX. Как вы можете видеть эту командную кнопку .
Шаг 3: Перетащите стрелку в любую ячейку, чтобы создать командную кнопку.
Шаг 4: Чтобы войти в функцию «Вставка», щелкните правой кнопкой мыши на кнопке «Командный», т. Е. Вставьте 3 строки и нажмите « Просмотреть код»
Шаг 5: Когда вы нажимаете на Просмотр кода, появляется следующий код.
Код:
Шаг 6: Мы должны написать наш код INSERT ROW. Как упоминалось ранее, мы должны использовать функцию Rows.EntireRow с RANGE в VBA. В этом коде мы должны вставить 3 между 3- м и 4- м .
Код:
В приведенной выше строке кода A3 - это столбец, в который мы должны вставить строку, а строки (3: 5) - то, что мы должны вставить 3 новые строки.
Шаг 7: Запустите код, нажав на кнопку « Вставить 3 строки» .
Пример № 2 - Использование номеров строк
Точно так же мы напишем код для вставки 2 строк одним нажатием кнопки.
В этом, мы должны упомянуть строку от начального ряда до конечного номера строки, используя RANGE, за которым следует INSERT, который вставит строки.
Код:
Когда мы нажимаем кнопку «Вставить 2 строки», мы видим, что 2 строки были вставлены между 3- й и 4- й строкой.
Точно так же мы можем настроить нашу функцию, чтобы вставить столько строк, сколько сможем.
Пример № 3 - Использование активной ячейки
Активная ячейка означает ячейку, которая выбрана в данный момент. Мы будем использовать активную ячейку для вставки строк. Предположим, что мы находимся в ячейке B3 и хотим вставить ячейку над ней, поэтому мы будем использовать свойство active cell. Мы будем использовать следующий код для активной ячейки.
Код:
Когда мы нажимаем кнопку «Активное свойство ячейки», мы видим, что одна ячейка вставляется над выбранной ячейкой. Выше мы выбрали B5, а ниже мы видим, что над ним вставлена одна строка.
Пример № 4 - Использование активной ячейки со смещением
Предположим, мы хотим вставить строку после 3 строк активной ячейки, для этого мы будем использовать функцию OFFSET. Предположим, мы находимся в ячейке B4 и должны вставить строку после 2 строк, мы будем использовать этот код.
Код:
Когда мы нажимаем кнопку «Активная ячейка с использованием смещения», в B6 вставляется одна строка .
То, что нужно запомнить
- Он используется для вставки строк в Excel, автоматизируя его.
- Вставка строки VBA используется с объектом RANGE в VBA.
- Перед началом работы включите «Включить все макросы» в настройках макроса.
Рекомендуемые статьи
Это руководство по VBA Insert Row. Здесь мы обсудим, как вставить строку в Excel, используя код VBA, а также с практическими примерами и загружаемым шаблоном Excel. Вы также можете посмотреть следующие статьи, чтобы узнать больше -
Предположим, у вас есть диапазон данных, и вы хотите автоматически вставлять пустые строки выше или ниже определенного значения в Excel, например, автоматически вставлять строки ниже нулевого значения, как показано ниже. В Excel нет прямого способа решить эту задачу, но я могу ввести код макроса для автоматической вставки строк на основе определенного значения в Excel.
Вставить строку ниже на основе значения ячейки с помощью VBA
Вставить строку выше на основе значения ячейки с помощью Kutools for Excel
Вставить строку ниже на основе значения ячейки с помощью VBA
Чтобы вставить строку на основе значения ячейки, запустив VBA, выполните следующие действия:
1. Нажмите Alt + F11 одновременно, а Microsoft Visual Basic для приложений окно выскакивает.
2. Нажмите Вставить > Модуль, затем вставьте ниже код VBA во всплывающий Модуль окно.
VBA: вставьте строку ниже на основе значения ячейки.
3. Нажмите F5 ключа или Запустите нажмите кнопку, появится диалоговое окно и выберите столбец, содержащий ноль. Смотрите скриншот:
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. Выберите список, из которого вы хотите найти определенные ячейки, и нажмите Kutools > Выберите > Выбрать определенные ячейки. Смотрите скриншот:
2. В появившемся диалоговом окне отметьте Весь ряд вариант, а затем перейдите, чтобы выбрать Равно от Конкретный тип список, а затем введите значение, которое вы хотите найти, в правом текстовом поле. Смотрите скриншот:
3. Нажмите Ok, и появится диалоговое окно, напоминающее количество выбранных строк, просто закройте его.
4. Поместите курсор в одну выбранную строку и щелкните правой кнопкой мыши, чтобы выбрать Вставить из контекстного меню. Смотрите скриншот:
Теперь строки вставляются выше на основе определенного значения.
Иногда необходимо вставлять большое количество пустых строк по различным условиям и в ручную этот процесс занимает много времени. Для упрощения данного процесса в функционал надстройки добавлена функция «Вставить пустые строки».
Чтобы воспользоваться функцией перейдите на вкладку «VBA-Excel» в разделе «Ячейки и диапазоны» откройте меню «Вставить», выберите «Вставить пустые строки».
Появится диалоговое окно с выбором опций для вставки строк. Необходимо выбрать опции в соответствии с тем какая стоит задача.
Вставка произвольного количества строк
Для этого в поле «Условие» необходимо выбрать пункт «Вставить N пустых строк»
Для того что бы указать в какую строку вставлять пустые строки нужно в поле «Начиная со строки» указать номер нужной строки.
Это можно сделать двумя способами:
- Вручную ввести номер строки.
- Нажать кнопку «…» расположенную рядом с полем «Начиная со строки», после чего откроется окно выбора строки. Далее нужно выбрать любую ячейку находящуюся в нужной строку и нажать «Ок»
После чего в поле Количество указать сколько пустых строк нужно вставить. И нажать кнопку «Ок»
Например, нужно вставить 5 пустых строк с 7 строки. тогда ввод в диалоговое окно будет выглядеть следующим образом:
Вставка строк через заданное количество строк
Для этого в поле «Условие» должно быть выбрано «Вставлять через каждые N строк».
В данном режиме нужное количество строк вставляется через равные промежутки в пределах, указанных в поле «Диапазон»
В поле «Диапазон» можно указать «Текущий лист» или «Выделение».
- В первом случае вставляются пустые строки с первой строки до последней, в которой есть какие-либо значения.
- Во втором пустые строки вставляются только в рамках текущего выделения.
Как и в первом режиме нужно указать строку, с которой начнет работать алгоритм и количество пустых строк
А в поле «Вставлять через» указывается сколько строк будет пропускаться при вставке следующих пустых строк.
Например, нужно вставить 2 пустые строки через каждые 2 строки, начиная с 6 строки, тогда диалоговое окно примет следующий вид:
Вставка строк при изменении значения в столбце
Для этого в поле «Условие» должно быть выбрано «Вставлять по изменению значения в столбце»
В этом режиме пустые строки вставляются в том случае если в выбранном столбце меняется значение.
Для указания столбца, по которому просматриваются значения, нужно в поле «Столбец» ввести имя столбца. Это можно сделать двумя способами:
- Вручную ввести имя столбца
- Нажать кнопку «…» расположенную рядом с полем «Столбец», после чего откроется окно выбора столбца. Далее нужно выбрать любую ячейку находящуюся в нужном столбце и нажать «Ок»
Например, вам нужно отделить каждый новый артикул в столбце А пустой строкой. Тогда диалоговое окно примет вид:
Вставка строк при определенном значении в столбце
Для этого в поле «Условие» должно быть выбрано «Вставлять по значению в столбце».
В этом случае вставка пустых строк происходит по совпадению значения выбранного столбца со значением указанным в поле «Значение».
Например, нужно вставить пустые строки там, где в столбце «Флаг» находится значение «f». В этом случае выбираем следующие настройки:
Читайте также: