VBA найти последнюю пустую ячейку и вставить значение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA найти последнюю пустую ячейку и вставить значение (Формулы/Formulas)

Spirtuoz

Дата: Суббота, 19.12.2020, 20:35 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Добрый день.

Столкнулся с проблемой. На листе 1 есть строка с данными. На листе 2 есть таблица, в которую нужно эту строку вбить при выполнении макроса. При этом Таблица на листе 2 содержит заголовки в 1 строке.

Нужно сделать так,чтобы данные из листа 1 копировались и вставлялись на лист 2 в таблицу в строку ниже последней заполненной строки. При этом возможна ситуация, когда в таблице не будет данных (только один заголовок), а может быть ситуация, когда таблица заполнена уж некоторыми данными (как в файле примере). Файл пример прикрепляю.

Буду благодарен за помощь!

К сообщению приложен файл: 7578483.xlsx (9.2 Kb)

Ответить

_Igor_61

Дата: Суббота, 19.12.2020, 21:04 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 504

Репутация: 90 ±

Замечаний: 0% ±

Excel 2007

Можно так например:
[vba]

Код

Sub Макрос1()
    Sheets("Лист1").Range("A2:F2").Copy
    Sheets("Лист2").Activate
    Sheets("Лист2").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

[/vba]
Или так:
[vba]

Код

Sub Макрос1()
   Dim r&
   r = Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Row + 1
   Sheets("Лист1").Range("A2:F2").Copy Sheets("Лист2").Range("A" & r & ":F" & r)
End Sub

[/vba]

Сообщение отредактировал _Igor_61 - Суббота, 19.12.2020, 21:13

Ответить

Spirtuoz

Дата: Суббота, 19.12.2020, 23:10 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

_Igor_61, Спасибо большое! Все работает!

Ответить

atarumov

Дата: Понедельник, 07.03.2022, 20:15 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

_Igor_61, Добрый вечер!
Подскажите пожалуйста, а как в вашем примере можно сделать специальную вставку?
У меня задача та же, но на первом листе есть формулы.
Спасибо.