在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