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

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

它给出编译错误：预期语句结束。

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

标签： excelvba

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