在Excel表格（列表）的末尾添加一行，但没有先用命令按钮选择最后一行

Question

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

我的表被命名为：总帐 CommandButton1的被命名为：添加新

我失败在编写代码，你可以帮帮我吗？

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