macrosbutton，单击时将复制单元格区域并粘贴到另一个工作表的下一个空白行

我的电子表格中有一个“付款”列和“主要付款清单”列。 PAYMENT列在INPUT工作表中，而MASTER LIST列在CASHFLOW工作表中。 这个想法是将input范围从PAYMENT列复制到MASTER LIST列，粘贴MASTER LIST列的下一个BLANK ROW。

例如：3次付款，数据在A1：A3。 将A1：A3复制到主列表栏A8：A10。 再次，3付款。 但是由于MASTER LIST列A8：A10已经有了以前的数据。 这次数据将被粘贴到A11：A13。 等等。

到目前为止，我已经做了下面的代码，但我成功地只复制和粘贴一行（范围的第一行）。 我试图编辑它来复制单元格的范围，但它给了我一个错误。 有什么build议么？ 谢谢！

Sub PAYMENTS_TRANSFER() Response = MsgBox("Are you sure?", vbYesNo) If Response = vbNo Then Exit Sub Dim nextrow As Long nextrow = Worksheets("Cashflow").Cells(Rows.Count, "A").End(xlUp).Row + 1 If nextrow < 8 Then nextrow = 8 Worksheets("Cashflow").Range("A" & nextrow).Value = Worksheets("Input").Range("A1").Value End Sub 

Answer 1

您没有复制全部范围，因为您没有底部行号（“input”）。 尝试这个：

  Sub PAYMENTS_TRANSFER() Response = MsgBox("Are you sure?", vbYesNo) If Response = vbNo Then Exit Sub Dim nextrow As Long nextrow = Worksheets("Cashflow").Cells(Rows.Count, "A").End(xlUp).Row + 1 lastrow = Worksheets("Input").Cells(Rows.Count, "A").End(xlUp).Row If nextrow < 8 Then nextrow = 8 Worksheets("Cashflow").Range("A" & nextrow).Value = Worksheets("Input").Range("A1:A" & lastrow).Value End Sub