Excel VBA问题：如何让新增数据行纳入表格范围而非表格外？

原代码通过定位空行写入数据，但如果目标是Excel结构化表格（ListObject），直接写入行不会自动扩展表格，导致数据落在表格外。下面是修改后的代码，可将数据直接添加到表格内部：

Sub add_product()
' add_product Macro
' ADD PRODUCT MACRO
' 将数据从"add product"工作表添加到"products"工作表的结构化表格中

Dim sourceSheet As Worksheet
Dim dataSheet As Worksheet
Dim productTable As ListObject
Dim newRow As ListRow

' 定义工作表变量，避免硬编码表名
Set sourceSheet = Sheets("add product")
Set dataSheet = Sheets("products")
' 获取目标工作表中的结构化表格（替换为你的实际表格名称，比如"Table1"）
Set productTable = dataSheet.ListObjects("Table1")

' 在表格末尾添加新行
Set newRow = productTable.ListRows.Add(AlwaysInsert:=True)

' 将表单数据写入新行的对应列（列序号对应表格的第1到第5列，可根据实际调整）
newRow.Range(1).Value = sourceSheet.Range("J5").Value
newRow.Range(2).Value = sourceSheet.Range("J7").Value
newRow.Range(3).Value = sourceSheet.Range("J9").Value
newRow.Range(4).Value = sourceSheet.Range("J11").Value
newRow.Range(5).Value = sourceSheet.Range("J13").Value

' 清空表单输入框
sourceSheet.Range("J7").Value = ""
sourceSheet.Range("J9").Value = ""
sourceSheet.Range("J11").Value = ""
sourceSheet.Range("J13").Value = ""
End Sub

关键修改说明： #

• 新增productTable变量指向目标结构化表格，需替换"Table1"为你实际的表格名称（可在Excel表格设计选项卡中查看）。
• 使用productTable.ListRows.Add方法添加新行，这会自动扩展表格，确保新数据属于表格的一部分，而非表格外的独立行。
• 通过newRow.Range(列序号)直接给新行的对应列赋值，比原代码的单元格定位更适配结构化表格。

内容的提问来源于stack exchange，提问作者Yassine Hendaoui