Копирование ячеек из рабочего листа в другой рабочий лист (из разных книг и первой пустой ячейки)

Я пытаюсь скопировать содержимое из открытого рабочего листа пользователя на другой рабочий лист из другой рабочей книги. Приведенный ниже код работает, но он не выбирает первую пустую ячейку из листа WS_REL и перезаписывает все содержащиеся данные. Пока у меня есть это:

Sub Importar_Dados() Dim vTemp As Variant Dim WB_TOA As Workbook, WB_REL As Workbook Dim WS_TOA As Worksheet, WS_REL As Worksheet Set WB_REL = ActiveWorkbook Set WS_REL = WB_REL.Sheets("Planilha2") vTemp = Application.GetOpenFilename("Excel-files,*.xlsx", _ 1, "Selecione o relatório gerado pelo TOA", , False) If TypeName(vTemp) = "Boolean" Then Exit Sub Workbooks.Open vTemp Set WB_TOA = Workbooks.Open(vTemp) Set WS_TOA = WB_TOA.Sheets("Page 1") WS_TOA.Cells.Copy WS_REL.Cells End Sub 

Спасибо!

Во-первых, вам не нужно открывать другую книгу дважды. Удалить строку

 Workbooks.Open vTemp 

Затем, чтобы добавить без перезаписи, вам нужно найти последнюю непустую ячейку в листе адресата. Попробуйте ( например ):

 WS_TOA.usedRange.Copy WS_REL.Range("A999999").End(xlUp).Offset(1) 

Если у вас нет столбца, который обязательно содержит данные во всех строках, используйте это:

 WS_TOA.usedRange.Copy WS_REL.Range("A" & WS_REL.Cells.Find("*", , , , xlByRows, xlPrevious).Row+1) 

Это найдет вам первую непустую строку.

Interesting Posts

Максимальное количество строк CSV-данных в листе excel

Запрос переменной мощности на основе ввода соты: JSON

Нужно изменить одну мелочь в этом макросе

Как разделить одну колонку на две?

перечислить все файлы в каталоге, где дата создания файла соответствует неделе нет? УВА

Использование LocationTextExtractionStrategy в itextSharp для текстовой координаты

EXCEL, как установить строку ячейки из другого значения ячейки

Синтаксическая ошибка (отсутствующий оператор) в выражении запроса ""

Откройте несколько копий файла шаблона (.Net, Excel.Interop)

Autohotkey – перехватить целевое окно Close Command?

Если текст содержит значение 2017 или выше, заданная переменная равна определенному значению

Vba to vlookup value и скопировать следующее значение ячейки на лист счета-фактуры

Высота ячеек Excel не увеличивается

Сортировать по дате в VBA

Если столбец a содержит определенный текст, см. Значение соответствующей строки, если он изменился с предыдущего, выполните расчет

Давайте будем гением компьютера.