将单元格区域复制到不同的工作簿

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

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 Destination:=wb.Sheets("IN LIFE").Range("A" & NR) 

同

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

似乎做我所需要的:)

Answer 2

不知道如何在一行代码中做到这一点

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