使用特定值向表/命名范围添加行？

Question

我只是想在表中添加一个新行并指定某些值。现在，我使用以下代码添加行：

ActiveSheet.ListObjects("tableName").ListRows.Add

这有效，但现在我如何让第一列的值为foo？

ListRows.Add()仅支持一个参数，即添加行的索引。我可以使用其他功能吗？

Answer 1

Dim Your_Table As ListObject
Dim New_Row As ListRow

Set Your_Table =ActiveSheet.ListObjects("tableName")
Set New_Row = Your_Table.ListRows.Add

New_Row.Range(1) = foo