如何修改VBA宏实现仅复制工作表单元格值而非公式？

没问题，这个场景太常见了——想要保留一份独立的快照做对比，结果公式同步更新完全失去了快照的意义。给你两个简便的修复方案，挑顺手的用就行：

方案1：使用PasteSpecial指定粘贴值 #

这是最直观的修改，在复制后明确告诉Excel只粘贴值：

Worksheets("First Sheet").Cells.Copy
Worksheets("Second Sheet").Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False ' 清除剪贴板的复制状态，避免后续误操作

xlPasteValues参数会让Excel只复制单元格显示的数值，完全忽略底层公式，这样副本就和原表彻底独立了。如果还需要保留格式（比如单元格颜色、数字格式），可以把参数换成xlPasteValuesAndNumberFormats，兼顾值和格式。

方案2：直接赋值（更高效） #

如果你的工作表数据量比较大，直接赋值的方式会比用剪贴板更快，代码也更简洁：

Worksheets("Second Sheet").Cells.Value = Worksheets("First Sheet").Cells.Value

这个写法直接把源工作表所有单元格的值“克隆”到目标表，全程不碰剪贴板，效率更高，而且同样能保证副本是独立的静态值。

两种方法都能解决你的问题，根据自己的习惯选就行~

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