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

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

2 个答案: