将行添加到表格的底部

我试图做一个非常简单的VBAmacros添加一个新的行到表的底部。 这是我迄今为止：

Sub AddRow() Dim LR As Long LR = Range("A" & Rows, Count).End(xlUp).Row Rows(LR).Copy Rows(LR + 1).Insert End Sub 

当我试图运行这个，它说内存不足。 我试图实现的是在现有表格底部的新行（A列中的内容），无论上面有多less列，我最终都会用它来总计上面的数字。 我在这里做错了什么？

Answer 1

尝试这个：

 Sub AddRow() Dim LR As Long LR = Cells(Rows.Count,1).End(xlUp).Row Rows(LR).Copy Rows(LR + 1).Insert End Sub 

Answer 2

您在范围定义中只是出现错误：

你用"A" & Rows, Count而不是"A" & Rows.Count （它是一个对象的属性，所以它的Object.Property

我甚至build议你使用Worksheetvariables来更好地引用。

这里是你更正的代码：

 Sub AddRow() Dim LR As Long, _ Ws As Workseet Set Ws = ThisWorkBook.Sheets("SheetName") LR = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row Ws.Rows(LR).Copy Ws.Rows(LR + 1).Insert End Sub