Добавьте строку под таблицей в диапазон таблицы.

Question

Я пытаюсь изменить размер таблицы, чтобы включить данные в строку непосредственно под последней строкой таблицы. Мой текущий код выглядит следующим образом, но возвращает объектную ошибку. Кроме того, таблица меняет расположение, так как строки добавляются как над, так и под ней.

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

Я использовал следующие источники, чтобы попытаться решить эту проблему без удачи. Изменение размера таблицы объектов в динамическом режиме с помощью VBA https://docs.microsoft.com/en-us/office/vba/api/excel.range.resize

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