从一个工作簿中复制公式，将其粘贴为活动工作簿中的值

Question

来源范围P22：P35是公式。

这将复制公式：

Sub somemodule()

Set Src = Workbooks("Abc")
Sheets("Thissheet").Select
Src.Sheets("Thatsheet").Range("P22:P35").CopyRange("Q5")

End Sub

我只想粘贴值。

我尝试过：

Src.Sheets("Thatsheet").Range("P22:P35").CopyRange("Q5").PasteSpecial

它给出运行时错误'1004'

我尝试过：

Src.Sheets("Thatsheet").Range("P22:P35").CopyRange("Q5").PasteSpecialxlPasteValues

它给出了编译错误：预期的语句结尾。

如何将值复制到活动工作表中？

Answer 1

避免复制/粘贴。它很慢，很乏味，而且不值得。

Dim srcRng As Range, tgtRng As Range
Set srcRng = Workbooks("Abc").Worksheets("SheetName").Range("P22:P35")
Set tgtRng = Workbooks("Tgt").Worksheets("SheetName2").Range("P22:P35")
'======================================================================
'====== MAKE SURE YOU USE CORRECT WORKBOOK/WORKSHEET NAMES ABOVE ======
'======================================================================

tgtRng.Value = srcRng.Value