将行添加到Excel表（列表）的末尾，而不先使用命令按钮选择最后一行

Question

我需要在Excel表格的末尾添加一个新行，而不使用excel 2013使用命令按钮首先选择最后一行

我的桌子名为：Ledger Commandbutton1命名为：Add New

我编写代码失败了，你能帮帮我吗？

Answer 1

您需要编写一些代码来确定表的位置，并创建表中包含的Range对象。它可以是表格内的任何范围。如果表格恰好位于电子表格的左上角，则可以使用A1。

Set r = ActiveSheet.Range("A1")

然后要插入行，获取单元格的ListObject，这基本上可以获得表格。然后拨打ListRows.Add。

r.ListObject.ListRows.Add 

Answer 2

您可以尝试这样的事情......

Private Sub AddNew_Click()
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("Ledger")
tbl.ListRows.Add AlwaysInsert:=True
End Sub