Столкнулся с проблемой. На листе 1 есть строка с данными. На листе 2 есть таблица, в которую нужно эту строку вбить при выполнении макроса. При этом Таблица на листе 2 содержит заголовки в 1 строке.
Нужно сделать так,чтобы данные из листа 1 копировались и вставлялись на лист 2 в таблицу в строку ниже последней заполненной строки. При этом возможна ситуация, когда в таблице не будет данных (только один заголовок), а может быть ситуация, когда таблица заполнена уж некоторыми данными (как в файле примере). Файл пример прикрепляю.
Буду благодарен за помощь!
Добрый день.
Столкнулся с проблемой. На листе 1 есть строка с данными. На листе 2 есть таблица, в которую нужно эту строку вбить при выполнении макроса. При этом Таблица на листе 2 содержит заголовки в 1 строке.
Нужно сделать так,чтобы данные из листа 1 копировались и вставлялись на лист 2 в таблицу в строку ниже последней заполненной строки. При этом возможна ситуация, когда в таблице не будет данных (только один заголовок), а может быть ситуация, когда таблица заполнена уж некоторыми данными (как в файле примере). Файл пример прикрепляю.
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]
Можно так например: [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
_Igor_61, Добрый вечер! Подскажите пожалуйста, а как в вашем примере можно сделать специальную вставку? У меня задача та же, но на первом листе есть формулы. Спасибо.
_Igor_61, Добрый вечер! Подскажите пожалуйста, а как в вашем примере можно сделать специальную вставку? У меня задача та же, но на первом листе есть формулы. Спасибо.atarumov
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
