使用macros（button）在Excel中添加新行

我对macros/ VBA是全新的。 所有我想要做的是创build一个button，应该添加新的行。 我还想在使用button创build行时将数据添加到新行。 我从某处复制了代码，我在那里工作的很好，但是当我尝试运行它时，它给了我错误=“方法'范围'的对象'_Worksheet'失败”我相信这是由于代码行：

last_row_with_data = the_sheet.Range(A65536).End(x1Up).Row 

该人使用简单的子/方法做到了，但我正在用一个button来做

完整代码如下：

 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("Sheet1") Set table_list_object = the_sheet.ListObjects(1) Set table_object_row = table_list_object.ListRows.Add table_object_row.Range(1, 1).Value = "12324" last_row_with_data = the_sheet.Range(A65536).End(x1Up).Row the_sheet.Range("B" & last_row_with_data) = "Title Name" the_sheet.Range("C" & last_row_with_data) = "Ref Number" End Sub 

我不知道代码有什么问题，因为我对macros是全新的。 任何人都请纠正错误？

Answer 1

 last_row_with_data = the_sheet.Range(A65536).End(x1Up).Row 

应该

 last_row_with_data = the_sheet.Range(A65536).End(xlUp).Row 

使其运行更干净，您可以使用：

 last_row_with_data = the_sheet.Range("A" & Rows.Count).End(xlUp).Row