如果您有一个包含多个公式的 Excel 工作簿，现在需要分发给其他用户，但又不希望显示公式，仅保留数值结果，该怎么办？通常，我们可以通过复制数据并以“仅数值”方式粘贴，快速将单个工作表转换为纯数值。然而，如何在不逐个手动复制粘贴的情况下，一次性将所有工作表都转换为仅含数值的版本呢？

使用 VBA 代码将所有工作表仅保存为数值

使用 VBA 代码将所有工作表仅保存为数值

以下 VBA 代码可助您快速将所有工作表转换为数值（不含公式），同时完整保留原有单元格格式。请按以下步骤操作：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，然后将以下代码粘贴到模块窗口中。

VBA 代码：将所有工作表仅保存为数值：

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. 然后按 F5 键运行此代码，即可将整个工作簿保存为仅含数值的形式——所有公式将被一次性移除，仅保留带格式的数值。

注意：应用此代码前，建议先保存一份工作簿的副本。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
• 自定义公式：生成量身定制的公式，助您优化工作流程！
• VBA 编码：轻松编写并运行 VBA 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！