将单元格范围复制到不同的工作簿

Question

我使用以下代码将一系列不同的单元格复制到另一个工作簿中的下一个可用行。问题是它粘贴的是公式而不是值。

Sub SaveInlife()
    Dim wb As Workbook, NR As Long
    Set wb = Workbooks.Open("C:\Users\caseys\Downloads\Operations Score Card.xlsx")
    NR = Sheets("IN LIFE").Range("A" & Rows.Count).End(xlUp).Row + 1

    With ThisWorkbook.Sheets("REPORT")
    .Range("AB85").Copy Destination:=wb.Sheets("IN LIFE").Range("A" & NR)
    End With

    wb.Close savechanges:=True
End Sub

Answer 1

不确定如何用一行代码完成，但

.Range("AB85").Copy 
wb.Sheets("IN LIFE").Range("A" & NR).PasteSpecial xlValues

Answer 2

想通了

已替换

.Range("AB85").Copy Destination:=wb.Sheets("IN LIFE").Range("A" & NR)

有

wb.Sheets("IN LIFE").Range("A" & NR).Value = .Range("AB85").Value

似乎可以满足我的需要:)

将单元格范围复制到不同的工作簿

Copying cell range to a different workbook

vba

excel

copy-paste