如何用公式的输出替换单元格中的公式？

Question

如何用公式的输出替换单元格中的公式？

我只需要 "=RIGHT(E86,LEN(E86)+1-FIND("(",E86,1))" 变为 "(e)"

有没有办法对整个工作表执行此操作？替换所有带有公式的单元格及其显示的文本？我使用的是 2003 版本。

Answer 1

选择要替换的单元格并复制它们。 然后转到“编辑->选择性粘贴”并选择值而不是全部。

由于这不会更改非公式单元格，因此您可以选择整个工作表并复制->选择性粘贴以删除所有公式。

要以编程方式完成此操作，请查看 Steve 的回答。 他有你需要的代码。

Answer 2

或者，如果您想避免使用

Dim r as range
For each r in Worksheets("Sheet1").UsedRange.Cells
   r.Value = r.Value
Next

我不擅长处理的剪贴板，那么类似下面的内容将起作用，所以您需要检查语法。

Answer 3

另一种方法是：双击相关单元格并按 F9。