Копирование данных из одной таблицы в другую

Question

Я пытаюсь скопировать данные из одной таблицы в другую (в которой уже есть данные). Мне нужно скопировать (из исходной таблицы) все заполненные ячейки в столбец B в электронной таблице назначения, но в последней строке (не переписывая существующие данные)

вот что у меня есть, но это не совсем то, что мне нужно, бросает ошибку говоря:

объект требуется

на этой линии: Last_Row = Range("A" & Rows.Count).End(xlUp).Row)

И я пытаюсь сделать это в .VBS подать

Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 

Set objWorkbook = objExcel.Workbooks.Open("D:\Test2.xlsx") 
Set objWorksheet = objWorkbook.Worksheets("Sheet 2") 

Set objRange = objWorksheet.Range("A5:D5") 
objRange.Copy 

'destination spreadsheet stuff: 
Set objExcel2 = CreateObject("Excel.Application") 
objExcel2.Visible = True 
Set objWorkbook2 = objExcel.Workbooks.Open("D:\Test1.xlsx") 
Set objWorksheet2 = objWorkbook2.Worksheets("Sheet1") 

Last_Row = Range("A" & Rows.Count).End(xlUp).Row 
objWorksheet2.Range("B" & Last_Row).Activate 
objWorksheet2.Paste 

Answer 1

Я изменил Last_Row к Next_Row потому, что вы хотите вставить на следующей строке после данных (отсюда + 1).

И избавился от второго экземпляра Excel, потому что вставка между двумя экземплярами очень ограничена и программно очень неэффективна!

Так это должно работать нормально:

Set objExcel = CreateObject("Excel.Application") 
objExcel.Visible = True 

Set objWorkbook = objExcel.Workbooks.Open("D:\Test2.xlsx") 
Set objWorksheet = objWorkbook.Worksheets("Sheet 2") 

Set objRange = objWorksheet.Range("A5:D5") 
objRange.Copy 

'destination spreadsheet stuff: 
Set objWorkbook2 = objExcel.Workbooks.Open("D:\Test1.xlsx") 
Set objWorksheet2 = objWorkbook2.Worksheets("Sheet1") 

Next_Row = objWorksheet2.Range("B" & objWorksheet2.Rows.Count).End(xlUp).Row + 1 
objWorksheet2.Range("B" & Next_Row).Paste