Excel将多个工作表中的函数计算结果数字化（将多个工作表合并为一个工作表）

本文提供了有关Excel的相关知识。 主要整理了如何将多个工作表中的函数结果转换为数字的相关事项，包括将单个工作表中的公式转换为数字。 让我们看看如何将工作表中的公式转换为数字，如何将多个工作簿中的公式转换为数字等等。 我希望这对你有帮助。

相关学习推荐：Excel教程

如何将多个工作表中的函数计算结果转换为数字？的问题。 根据经营范围的不同，可以分为三种情况。

将公式转换为单个工作表中的值

将公式转换为多个工作表中的值

将公式转换为多个工作簿中的值转换为值

1. 将区域函数计算结果转换为数值

首先解释第一种情况。 将区域函数的计算结果转换为数值。 这是最常见的，操作也比较简单。 复制目标区域，右键单击并选择作为要粘贴的值。

操作动画如下。

2. 将多个工作表上的公式转换为数字

如果要将当前工作簿中的所有工作表上的公式转换为数字，则必须使用 VBA 代码。 参考代码为：

Sub FunctionTransValue_Sheets()Dim sht As WorksheetFor Each sht In Worksheets ' 遍历工作表 sht.usedRange.Value = sht.usedRange.ValueNextEnd Sub

代码第 3 到第 5 行 代码遍历 第四行更改单元格值并删除公式内容。

3. 将公式转换为多个工作簿中的值

要将公式转换为指定文件夹中多个工作簿中的值，可以复制并运行以下代码：

p>Sub FunctionTransValue_Workbooks () '将所有工作簿变暗 strPath As String，sht As WorksheetDim strWbName As String，wb As WorkbookWith Application.FileDialog(msoFileDialogFolderPicker) '获取文件夹 pathIf .Show then strPath = .SelectedItems(1) & "\" Else Exit SubEnd WithOn Error Resume NextWith Application.ScreenUpdating = False '取消更新屏幕。 DisplayAlerts = False '取消警报信息。 EnableEvents = False '取消事件。 Calculation = xlCalculationManual '取消公式的重新计算。 AskToUpdateLinks = False '取消请求外部链接End WithstrWbName = Dir(strPath & "*.xls*")Do While strWbName "" '如果dir语句遍历Excel文件 strWbName ThisWorkbook.Name thenSet wb = Workbooks.Open (strPath & strWbName) '打开每个工作簿 sht In wb.Worksheets '检查工作表中的公式并转换值 sht.usedRange.Value = sht.usedRange.ValueNextwb.Close True '工作簿保存并关闭IfstrWbName = Dir() 'Next Excel 文件循环与应用程序'恢复系统设置。 ScreenUpdating = True.DisplayAlerts = True.EnableEvents = True.Calculation = xlCalculationAutomatic.AskToUpdateLinks = TrueEnd WithIf Err.Number thenMsgBox Err.DescriptionElseMsgBox "转换完成。" End IfEnd Sub

代码分析如下。

第 4-6 行允许用户选择目标文件夹并检索该文件夹的路径。

第8行到第14行取消一系列系统设置。

代码的第15行到第25行使用条件循环语句和DIR函数来遍历工作簿。 然后，代码的第 19-21 行检查工作表并将公式转换为数字。

第 26 至 32 行恢复一组系统设置。

第33行到第37行的代码提供了程序执行结果的反馈。

相关学习推荐：Excel教程

WPS Office

这里不仅提供了WPS Office安装包，对于掌握office/word/excel的基础知识也提供了介绍。 /ppt/wps 超级全面的教程。 你想学的、不懂的都在这里。 感兴趣的朋友，请保存学习！

下载

这几篇文章你可能也喜欢：

• 整理如何在Excel中使用数字模式公式（Excel表格模式）
• 分享Excel实用技巧：填充颜色的3个技巧，精彩又时尚（Excel中如何每隔一行填充）
• Excel中的多条件统计（汇总分享）（多条件统计）
• 如何在Excel中快速提取多行多列的HR明细（How to extract multiple rows of data in Excel）
• 分享你的Excel实用技巧：计算加班费原来很简单。

本文由主机参考刊发，转载请注明：Excel将多个工作表中的函数计算结果数字化（将多个工作表合并为一个工作表） https://zhujicankao.com/123034.html