将variables位置最后一行复制到另一个工作表VBA

我试图将最后一行（在一个可变的位置）复制到另一个工作表中的最后一行数据（在一个可变的位置）。 到目前为止，我已经试过这个解决scheme和这个解决scheme 他们都复制了一堆行而不是最初的电子表格中的最后一行（WWData）。

Sub copylastrow() Dim Last_Row1 As Long Dim Last_Row2 As Long Last_Row1 = WWData.Cells(Rows.Count, 1).End(xlUp).Row Last_Row2 = WWOutput.Cells(Rows.Count, 1).End(xlUp).Row + 1 WWData.Cells(Last_Row1).Copy WWOutput.Cells(Last_Row2) End Sub 

我究竟做错了什么？ 注意：WWData和WWOutput将被预先定义。

玩笑

Answer 1

对于任何绊倒在这之后，我结束了使用两个build议的组合。 我使用适当的电子表格对我的Rows.Count进行了限定。 我还用.Rowsreplace了最后一行中的.Cells 。

最终代码如下所示：

 Last_Row1 = WWData.Cells(WWData.Rows.Count, 1).End(xlUp).Row Last_Row2 = WWOutput.Cells(WWOutput.Rows.Count, 1).End(xlUp).Row + 1 WWData.Rows(Last_Row1).Copy WWOutput.Rows(Last_Row2) 

非常感谢@ScottCraner和@findwindow