Vba 仅将值复制到表中

我试图从一个使用公式获取其值的表中复制数据。我只想将这些值粘贴到另一个工作表中的一个表中，并调整表的大小以适应内容。但是我在下面的代码中得到了一个错误：

.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

---

尽量定义和设置所有

对象

，在您的情况下，您可以定义和设置“表1”表

---

我在这一行遇到错误（对象不支持此属性或方法）：Tbl1.DataBodyRange.Resize（Tbl1.DataBodyRange.Rows.Count+1）@Richmond在哪一行？您没有将其写入注释Tbl1.DataBodyRange.Resize（Tbl1.DataBodyRange.Rows.Count+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)