如何快速将整个工作簿的公式转换为数值？

如何将多个工作表的函数计算结果转换为数值？今天就给大家集中聊一下这类问题。根据操作范围，这可以分为三种情况。

❶ 单个工作表的公式转数值
❷ 多个工作表的公式转数值
❸ 多个工作簿的公式转数值

1. 区域公式转数值

先来说第一种情况，区域函数计算结果转数值。这种最为常见，操作也比较简单。复制目标区域，右键选择性粘贴为数值即可。
操作动画演示如下：

2. 多工作表公式转数值

如果是将当前工作簿所有工作表的公式转换为数值，需要使用到VBA代码。参考代码如下：

Sub FunctionTransValue_Sheets()
Dim sht As Worksheet
For Each sht In Worksheets '遍历工作表
sht.UsedRange.Value = sht.UsedRange.Value
Next
End Sub

第3行至第5行代码遍历工作表，第4行代码将单元格的值修改为值，也就去除了公式内容。

3. 多工作簿公式转数值

指定文件夹下多个工作簿的公式转数值，可以复制运行以下代码：

Sub FunctionTransValue_Workbooks() '全部工作簿
Dim strPath As String, sht As Worksheet