如何将所有工作表仅保存为数值？

如果你有一个包含多个公式的工作簿，现在你需要将这个文件分发给其他用户，你不希望显示公式，而只显示数值。通常情况下，我们可以通过复制并粘贴为数值的方式快速将单个工作表保存为数值。但是，如何在不逐个复制粘贴的情况下将所有工作表仅保存为数值呢？

使用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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！