excel - 在表格底部添加行

我正在尝试制作一个非常简单的VBA宏，以将新行添加到表的底部。这是我到目前为止的内容：

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

当我尝试运行此命令时，它说内存不足。我想要实现的是在现有表的底部增加一行（内容在A列中），无论上面有多少列，我最终都会用它来总计上面的数字。我在这里做错了什么？

最佳答案

试试这个：

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

关于excel - 在表格底部添加行，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/33667740/