Перемещение макросом данных с нескольких таблиц на другой лист

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

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

02.10.2018 18:53:47

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

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

tables.xls (38.5 КБ)

Михаил С.

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

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

02.10.2018 19:47:01

Код

Sub перемещение()
    Sheets("Лист1").Range("Кузов[Тип Кузова]").Copy Destination:=Sheets("Лист2").Range("A1")
    lLastRow = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Лист1").Range("Модель[Модель авто]").Copy Destination:=Sheets("Лист2").Cells(lLastRow, 1)
'Sheets("Лист2").Select
End Sub

balagancha Пользователь Сообщений: 26 Регистрация: 12.02.2017	#3 02.10.2018 20:02:02 Михаил С., благодарю Вас, всё работает как надо.