將單元格區域複製到不同的工作簿

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 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