多个excel工作表中很多公式结果一次转为数值

今天一位朋友提出的问题：

他有一个月报表工作簿，里面多个工作表的数据都是用公式从一个数据源引用过来的，他必须在数据源更新之前，把所有的公式结果都保存成数据，才能保证源数据改变不影响到此个月报表工作簿。

问：有没有一次把工作簿多个工作表中很多公式结果一次转为数值的简单方法？

实现方法单列或单行公式结果转数值

单列或单行公式结果转成数值，大部分朋友都会用，直接选中一列或一行公式结果【复制】——【选择性粘贴】——【只保留数值】就可以了：

一个工作表公式结果转数值

一个工作中很多公式，可以把鼠标放在表中数据区，CTRL+A，全选数据，再【复制】——【选择性粘贴】——【只保留数值】就可以了：

多个工作表公式结果转数值

一个工作簿多个工作表中很多公式结果一次转为数值，需要把所有的工作表都选中（一次选中工作表的简单方法是选了第一个表，按住shift键选最后一个表），然后，CTRL+A，全选数据，再【复制】——【选择性粘贴】——【只保留数值】：

当然，也可以用VBA自定义宏代码：

Sub fd()

Dim sht As Worksheet

For Each sht In Sheets

sht.UsedRange = sht.UsedRange.Value

Next

End Sub