我如何修改此代码以复制并添加值而不是公式？

Question

我有这段代码片段，但是我遇到了一个问题，其中包含一些公式的表，并且它复制了所述公式而不是值

Book.Sheets(Site).Range("BE19:CN57").Copy
        OtherBook.Sheets(site).Range("BE19:CN57").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd

我尝试过这种替代方法

auxiliaryRangeMonth = Book.Sheets(site).Range("BE19:CN57")
    auxiliaryRangeYear = OtherBook.Sheets(site).Range("BE19:CN57")
    
    auxiliaryRangeYear.Value = auxiliaryRangeYear.Value + auxiliaryRangeMonth.Value

这些方法都无法正常工作

我希望其中一种方法能够发挥作用，但我却一片空白

Answer 1

如果您只想粘贴某个范围内的值，可以使用 PasteSpecial 方法的 Paste 参数。使用 xlPasteValues 仅复制值，或使用 xlPasteValuesAndNumberFormats 也复制数字格式（如果重要）。

Book.Sheets(Site).Range("BE19:CN57").Copy
OtherBook.Sheets(site).Range("BE19:CN57").PasteSpecial _
    Paste:=PasteValues, _
    Operation:=xlPasteSpecialOperationAdd