vba - 将行添加到表格底部

Question

我正在尝试制作一个非常简单的 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 列中的内容)，我最终将使用它来汇总其上方的数字，无论上面有多少列。我在这里做错了什么？

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