Я хочу изменить размер таблиц объектов через VBA, я пытался изменить код из MSDN о методе listobject.resize
, но я хочу динамически, если данные загружаются в каждую строку.
Код, который я пытаюсь, но безрезультатно:
Sub resizedata()
Dim ws As Worksheet
Dim ob As ListObject
Dim Lrow1 As Long
Lrow1 = Sheets("db_goods").Cells(Rows.Count, "E").End(xlUp).Row
Set ws = ActiveWorkbook.Worksheets("db_goods")
Set ob = ws.ListObjects("Table1")
ob.Resize Range("A1" & Lrow1)
End Sub