Question

我正在尝试将一张纸中的最后一行（位于可变位置）复制到另一张纸中的最后一行数据（位于可变位置）。到目前为止，我已尝试This solution和This solution。他们都复制了一堆行而不是初始电子表格（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

对于任何偶然发现此事的人，我最终结合使用了这两项建议。我使用适当的电子表格对Rows.Count进行了限定。我还用.Cells替换了最后一行中的.Rows。

结束代码如下所示：

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

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

1 个答案: