excel - 将表格下方的行添加到表格范围

Question

我正在尝试调整表的大小以将数据包含在表中最后一行正下方的一行中。我当前的代码看起来像这样，但返回一个对象定义的错误。此外，表格会随着在其上方和下方添加行而更改位置。

tbl.resize tbl.Range.CurrentRegion.Offset(1, 0)

我已使用以下资源尝试解决此问题，但没有成功。使用 VBA 动态调整 Listobject 表的大小 https://docs.microsoft.com/en-us/office/vba/api/excel.range.resize

标签： excelvba

Answer 1

这对我有用

Sub x()

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("Table1")
tbl.Resize tbl.Range.Resize(tbl.Range.Rows.Count + 1)

End Sub