VBA跨工作表复制代码修改需求：仅复制单元格计算值

没问题，这其实是VBA里非常常见的需求，用xlPasteValues就能完美实现你的目标，我给你一步步说明怎么修改代码：

方法1：使用PasteSpecial配合xlPasteValues #

如果你的原代码是直接用Copy + Destination的方式（比如下面这种常见的跨表复制写法）：

' 示例原代码：直接复制粘贴（会带公式/格式）
Sheet1.Range("A1:C10").Copy Destination:=Sheet2.Range("A1")

你只需要把它拆分成复制和选择性粘贴数值两步：

' 修改后的代码：仅粘贴计算后的数值
Sheet1.Range("A1:C10").Copy ' 先复制目标区域
Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues ' 指定只粘贴数值
' 可选：清除剪贴板状态，避免Excel显示"粘贴"提示
Application.CutCopyMode = False

这样操作后，目标单元格里只会保留原单元格计算出的最终数值，原公式会被完全忽略。

方法2：直接赋值（更高效，跳过剪贴板） #

如果你的数据量比较大，推荐用这种更高效的写法——直接把源区域的数值赋值给目标区域，完全不用走剪贴板：

' 高效写法：直接传递数值，无剪贴板操作
Sheet2.Range("A1:C10").Value = Sheet1.Range("A1:C10").Value

这个方法的效果和粘贴数值完全一样，但运行速度更快，也不会影响剪贴板里的其他内容。

小提示 #

• xlPasteValues是Excel内置的常量，不用自己定义，直接用就行；
• 如果需要同时保留数值和格式，可以换成xlPasteValuesAndNumberFormats，不过你只需要数值的话用前者就够了。

内容的提问来源于stack exchange，提问作者MzBarcaaa