Вставка данных в умную таблицу с помощью макроса

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

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

17.01.2021 13:25:12

Здравствуйте. Есть две таблицы. 1-я на "Лист1" умная таблица, 2-я на "Лист2" обычная. Из нее мне необходимо копировать и вставлять данные на Лист1 в умную таблицу. У меня был такой код, но он пропускает строку и данные не попадают в таблицу. Что нужно изменить что вставка осуществлялась корректно?

Код
Sub Кнопка1_Щелчок() [a2:d2].Copy Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=False End Sub

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

Пример.xlsm (19.02 КБ)

RAN Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#2 17.01.2021 13:53:24 здесь

msi2102

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

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

18.01.2021 09:04:37

Можно так:

Код

Sub Кнопка1_Щелчок()
Worksheets(1).ListObjects("Таблица1").ListRows.Add AlwaysInsert:=True
[a2:d2].Copy
Worksheets(1).ListObjects("Таблица1").ListRows(Worksheets(1).ListObjects("Таблица1").ListRows.Count).Range.PasteSpecial Paste:=xlPasteValues, Transpose:=False
End Sub

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

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

Добавление_строки_в_умную_таблицу.xlsm (18.42 КБ)

Изменено: msi2102 - 18.01.2021 09:06:47