excel将公式计算结果转化为数值的函数(excel表格中算式转换成数值)

相关学习推荐：excel教程

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

单个工作表的公式转数值

多个工作表的公式转数值

多个工作簿的公式转数值

1.区域公式转数值

先来说开始种情况，区域函数计算结果转数值。这种最为常见，操作也比较简单。复制目标区域，右键选择性粘贴为数值即可。

操作动画演示如下：

2.多工作表公式转数值

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

SubFunctionTransValue_Sheets)DimshtAsWorksheetForEachshtInWorksheets'遍历工作表sht.UsedRange.Value=sht.UsedRange.ValueNextEndSub登录后复制

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

3.多工作簿公式转数值

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

SubFunctionTransValue_Workbooks)'全部工作簿DimstrPathAsString,shtAsWorksheetDimstrWbNameAsString,wbAsWorkbookWithApplication.FileDialog(msoFileDialogFolderPicke)'获取文件夹路径If.ShowThenstrPath=.SelectedItems&""ElseExitSubEndWithOnErrorResumeNextWithApplication.ScreenUpdating=False'取消屏幕刷新.DisplayAlerts=False'取消警告信息.EnableEvents=False'取消事件.Calculation=xlCalculationManual'取消公式重算.AskToUpdateLinks=False'取消外链询问EndWithstrWbName=Dir(strPath&"*.xls*)DoWhilestrWbName<>"'dir语句遍历excel文件IfstrWbName<>ThisWorkbook.NameThenSetwb=Workbooks.Open(strPath&strWbNam)'打开工作簿ForEachshtInwb.Worksheets'遍历工作表公式转数值sht.UsedRange.Value=sht.UsedRange.ValueNextwb.CloseTrue'保存关闭工作簿EndIfstrWbName=Dir)'下一个excel文件LoopWithApplication'恢复系统设置.ScreenUpdating=True.DisplayAlerts=True.EnableEvents=True.Calculation=xlCalculationAutomatic.AskToUpdateLinks=TrueEndWithIfErr.NumberThenMsgBoxErr.DescriptionElseMsgBox"转换完成。"EndIfEndSub登录后复制

代码解析如下

第4至第6行代码允许用户选择目标文件夹，并获取文件夹的路径。

第8至第14行代码取消一系列系统设置。

第15至第25行代码使用条件循环语句+DIR函数遍历工作簿。第19至第21行代码再遍历工作表，将公式转换为数值。

第26至第32行代码恢复一系列系统设置。

第33行至第37行代码反馈程序运行结果。

相关学习推荐：excel教程

以上就是Excel将多个工作表的函数计算结果转换为数值的详细内容，更多请关注东辰网其它相关文章！