Excel表格VBA - 选择新的最后一行单元格2作为活动

Question

我有以下代码。它不会选择新创建的行...

我有一个名为ADD NEW的宏按钮，它链接到代码，该代码在表中成功添加新的最后一行并在表的第一个单元格中生成一个新数字。但它没有设置为活动并且“转到”第二个单元格以开始用户.... 我错过了什么？

Sub Add_New()

Dim the_sheet As Worksheet
Dim the_table As ListObject
Dim table_object_row As ListRow
Dim last_row As Long

Set the_sheet = Sheets("Inventory")
Set the_table = the_sheet.ListObjects("tbl_Data")
Set table_object_row = the_table.ListRows.Add
Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row
End Sub

Answer 1

尝试添加

table_object_row.range.cells(1,1).select

（假设这些行与工作表行相同）

BTW，纠正这一行

Set last_row = the_sheet.Range("C1`" & .Rows.Count).End(x1up).Row

到

last_row= Worksheets("Inventory").Range("A1" & Worksheets("Inventory").Rows.Count).End(xlUp).Row