在VBA中使用复制目标代码只复制值而不复制公式

Question

我想复制过滤表中剩下的单元格，但只复制它们的值，而不是公式。我使用了下面的cose，它工作得很好，除非过滤器只留下一行，在一行中，我得到了[Sheets（“Cost Accounting”）.range(A2).PastEspecial xlPasteValues]代码行的错误“Script Oun out Range”。

我附上了一个示例的图像，其中代码不会粘贴（当过滤器后只剩下一行时）示例问题场景

Dim table As ListObject
Dim rngToCopy As Range

Sheets.Add.Name = ("Cost Accounting")
Sheets("Cost Accounting").Activate

TeamRole2 = "Cost Accounting"
MaxDate = Date

Set table = Worksheets("Overview").ListObjects("Table1")

table.Range.AutoFilter Field:=13, Criteria1:=TeamRole2
table.Range.AutoFilter Field:=8, Criteria1:="<" & MaxDate

On Error Resume Next
Set rngToCopy = table.DataBodyRange.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not rngToCopy Is Nothing Then
    rngToCopy.Copy
    Sheets("Cost Accounting").Range(A2).PasteSpecial xlPasteValues
End If

table.Range.AutoFilter

Answer 1

尝试粘贴值...

If Not rngToCopy Is Nothing Then
    rngToCopy.Copy 
    Sheets("Cost Accounting").Range("A2").PasteSpecial xlPasteValues
End If