提问人：ADAN ALEJANDRO RAMIREZ QUINTER 提问时间：11/16/2023 最后编辑：braXADAN ALEJANDRO RAMIREZ QUINTER 更新时间：11/16/2023 访问量：28
如何修改此代码以复制和添加值而不是公式？
How do i modify this code To copy and add the values and not the formulas?
问：
我有这个代码片段，但我遇到了一个问题，里面有一些公式的表，它复制了所述公式而不是值
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
这两种方法都不起作用
我期望其中一种方法可以工作，但我正在画一个空白
答：
0赞
Slaqr
11/16/2023
#1
如果只想粘贴某个区域中的值，则可以使用 PasteSpecial 方法的 Paste 参数。使用 xlPasteValues 仅复制值，或使用 xlPasteValuesAndNumberFormats 复制数字格式（如果重要）。
Book.Sheets(Site).Range("BE19:CN57").Copy
OtherBook.Sheets(site).Range("BE19:CN57").PasteSpecial _
Paste:=PasteValues, _
Operation:=xlPasteSpecialOperationAdd
评论
1赞
ADAN ALEJANDRO RAMIREZ QUINTER
11/21/2023
问完这个问题后，我正在做一些其他的事情，很抱歉耽搁了，但这就像一个魅力，谢谢
评论
Set+OtherBook.Sheets(site).Range("BE19:CN57")..PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd