値をテーブルにのみコピーする

Question

テーブルからデータをコピーしようとしています。そして、私は別のシートのテーブルにのみ値を貼り付けるし、内容に合わせてテーブルのサイズを変更したい。

.Resize.Range.Resize (.Range.Rows.COUNT + 1) 

全コード：しかし、私は以下のコードでは、この行にエラーが出る

Dim LastRow1 As Long 
Dim s As Long, w As Long 

With Worksheets("PlaceHolderDD") 
    LastRow1 = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

With Worksheets("KYC Feedback Page 2") 
    w = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

For s = 2 To LastRow1 
    With Worksheets("PlaceHolderDD") 
     .Rows(s).Copy 
     Worksheets("KYC Feedback Page 2").Range("A" & w).PasteSpecial xlPasteValues    
     w = w + 1 
    End With 

    With Worksheets("KYC Feedback Page 2").ListObjects("Table1") 
     .Resize.Range.Resize (.Range.Rows.Count + 1) 
    End With 
Next s 

Answer 1

定義してObjectsのすべてを設定し、あなたのケースであなたが定義することができますオールウェイズしようとすると、 テーブル1 "テーブル。

' define the Table object 
Dim Tbl1 As ListObject 

' set the Table object 
Set Tbl1 = Worksheets("KYC Feedback Page 2").ListObjects("Table1") 

' resize the Table rows count by 1 
'Tbl1.DataBodyRange.Resize (Tbl1.DataBodyRange.Rows.Count + 1) 

' use another Range for the Resize 
Dim R As Range 
Set R = Tbl1.Range 

' resize the Table rows count by 1 
Tbl1.Resize R.Resize(R.Rows.Count + 1, R.Columns.Count)