VBAでListObjectテーブルを動的にサイズ変更

Question

VBAを使用してオブジェクトテーブルのサイズを変更したいのですが、listbject.resizeメソッドについてmsdn.microsoft.comからコードを修正しようとしましたが、 。

私がしようとしたが無駄にいるコード：

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)であるあなたがRange機能に"A1" & "12"のカートネーションの結果を渡しているので、$A$112の範囲を返します。この行を置き換える

試してみてください。これで

ob.Resize Range("A1" & Lrow1) 

：

ob.Resize ob.Range.Resize(Lrow1)