테이블의 두 번째 행 위에 행을 추가하려면 어떻게합니까? 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

이 당신을 위해 작동합니다 : 2 listrow의 위치를 ​​변경하는

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