excel中多工作表公式转数值-CSDN博客

本文链接：https://blog.csdn.net/yizhenfeng2017/article/details/129408002

该文章介绍了一段VBA代码，用于将Excel工作表中的所有公式转换为数值。执行此宏后，单元格将不再含有公式，而是显示计算结果，这意味着如果源数据更改，这些单元格的值不会自动更新。这是一个一次性操作，建议在执行前备份工作表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

假设有一个名为“Sheet1”的工作表，其中A1单元格包含公式“=SUM(B1:B5)”（计算B1到B5单元格的总和）。使用上面提供的VBA代码，可以将公式转换为数值，即将A1单元格的值从公式的结果（例如50）更改为结果本身。

在执行VBA代码后，A1单元格将不再包含公式，而是包含计算结果（例如50）。这意味着如果B1到B5单元格中的值更改，A1单元格中的值也不会更改，因为它已经是一个静态的数值。

Sub Convert_Formulas_To_Values()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets ws.Cells.Copy ws.Cells.PasteSpecial xlPasteValues Next ws

End Sub

以下是将Excel中所有工作表的公式转换为数值的详细步骤：

打开Excel文件，按下“Alt + F11”组合键打开VBA编辑器。
在VBA编辑器中，单击“插入”菜单，选择“模块”。
在新建的模块中，复制上面提供的VBA代码。
关闭VBA编辑器并返回Excel文件。
在Excel文件中，单击“开发工具”选项卡，选择“宏”。
在弹出的“宏”对话框中，选择刚才创建的宏（在本例中为“Convert_Formulas_To_Values”）并单击“运行”按钮。
等待一段时间，直到VBA代码执行完毕。Excel中所有的工作表中的公式都将转换为数值。
请注意，执行此操作将永久更改工作表中单元格的值。如果您需要保留公式，请先创建备份或复制工作表。