1、适用于清除少量公式——复制粘贴为值；

2、对于大量公式的快速清除-宏命令

2.1创建工作表，按ALT+F11调出宏命令界面。在宏命令界面上，按F7调出代码窗口，将以下代码复制并粘贴到代码区域。

Sub macro1()

Dim sh As Worksheet

For Each sh In Sheets

sh.UsedRange=sh.UsedRange.Value

Next

End Sub

2.2. 粘贴完成后，关闭代码窗口，关闭宏命令界面，并将工作簿保存为“仅清除公式value.xlsm”。请注意，保存类型已设置为“Excel宏启用工作簿”。

2.3. 打开需要清理公式的表，然后打开宏表“clean formulas only keep values.xlsm”。

2.4. 请注意，我的示例屏幕截图的公式是相同的，但我修改了E列数据的单元格格式，以保留两位小数。

之所以会这样，是为了提醒广大朋友，明确后格式，如果提前设置了单元格格式，比如我，所呈现的数据会与单元格格式一致，而不是多个十进制数字，对数据要求准确的朋友请务必注意。

2.5. 打开样例表后，按ALT+F8启用宏。如果弹出宏窗口中的列表为空，如图所示，

将下面位置选项卡中的“当前工作簿”替换为“所有打开的工作簿”，这样我们刚刚保存的宏命令就会出现在上面的宏列表区域中。

2.6. 我们点击“执行”。执行完成后，我们可以看到所有的公式都被清除了，只保留了值。

我们还注意到，E列中的数据仍然是2位小数，而其他列中的数据是多位小数，这就是上面提到的单元格格式的问题。

2.7. 测试后，深层隐藏工作表中的公式也将被清除。