使用VBAdynamic调整Listobject表的大小

我想通过VBA来更改对象表的大小，我尝试从msdn.microsoft.com关于listobject.resize方法修改代码，但是我想dynamic地在每行中加载一个数据。

我正在尝试的代码，但无济于事：

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 

有人可以帮忙吗？

提前致谢

Answer 1

问题是Range("A1" & Lrow1)返回$A$112的Range ，因为您正在传递Range函数"A1" & "12" 。

尝试replace这一行：

 ob.Resize Range("A1" & Lrow1) 

有了这个：

 ob.Resize ob.Range.Resize(Lrow1)