只将值复制到表中

我想从一个表中获取数据，使用公式获取它的值。我想将这些值粘贴到另一张表格中的表格中，并将表格的大小调整为适合内容。只将值复制到表中

.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

来源

2017-08-01 cookiemonster

尝试八方通定义和设置您的所有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)

来源

2017-08-01 13:09:20

我得到一个错误在这条线（对象犯规支持此属性或收作方法初探）： Tbl1.DataBodyRange.Resize（Tbl1.DataBodyRange.Rows.Count + 1） – cookiemonster

@Richmond在哪一行？你没有写在你的评论 –

Tbl1.DataBodyRange.Resize（Tbl1.DataBodyRange.Rows.Count + 1）错误（对象不支持此属性或方法） – cookiemonster

只将值复制到表中

回答

相关问题