我怎样才能在表中的第二行上面添加一行？ Excel VBA

默认情况下，行被添加到下面。 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