vba - 如何在表格的第二行上方添加一行？ Excel VBA

Question

默认情况下，行在下面添加。 SO上有很多答案可以在上面添加行，但不使用ListObjects .我很感激帮助。

Private Sub CommandButton1_Click()

Dim the_sheet As Worksheet
Dim table_list_object As ListObject
Dim table_object_row As ListRow

Set the_sheet = Sheets("Decision Log")
Set table_list_object = the_sheet.ListObjects(1)
Set table_object_row = table_list_object.ListRows.Add(1)

End Sub

Answer 1

这应该适合你:

Set table_object_row = table_list_object.ListRows(1).Range.EntireRow.Insert