Question

我想将一个表从一个Workbook1一行一行地复制粘贴到Workbook2（按时间间隔）。在Workbook2中，每行复制都有自己的工作表，下一个复制粘贴将在下一个空行上。（在我附上奥迪行的图片中，将有自己的工作表，每次更新都将在下一个空行中进行，其他人也一样），这里是我只尝试一行表的代码但它不起作用：

Sub Updateeee()
Application.OnTime Now + TimeValue("00:00:15"), "lalala"
End Sub

Sub lalala()
Workbooks("Workbook1.xls").Worksheets("Sheet1").Range("B2:R2").Copy
ActiveCellRow.Offset(1, 0).Activate
Workbooks("Workbook2.xls").Worksheets("Sheet1").Range("B2").Paste
Call Updateeee
End Sub

Table example

Answer 1

要查找下一个空行：

 rowCount =  wbDest.Sheets("Data").rows.count
 NextEmptyRow = wbDest.Sheets("Data").Range("A" & rows.count).End(xlUp).Row + 1

要粘贴，您可以使用@Moosli提供的解决方案，或者在https://azure.microsoft.com/en-us/documentation/articles/store-sendgrid-php-how-to-send-email/提供大量示例，包括此处给出的解决方案，以便您可以使用符合您需求的解决方案。

希望有所帮助。

Answer 2

您可以尝试这样的事情

04/17 Walmart .toys $ 70 .cash $ -70

04/17 Caltex .gas 20 $ .cheque $ -20

04/17 McDonalds .burger 1 $ .cash $ -1

或类似的东西，

Workbooks("Name.xlsx").Worksheets(1).Range(Cells(6, 8), Cells(6, 9)).Copy Destination:=ThisWorkbook.Worksheets(2).Range(Cells(6, 8), Cells(6, 9))

工作簿

2 个答案: