如何將所有工作表僅儲存為值？

如果您有一個包含多個公式的工作簿，現在需要將此檔案分發給其他使用者，您不希望顯示公式，而只顯示值。通常，我們可以通過複製並將資料僅以值的形式貼上，快速將單個工作表儲存為值。但是，如何在不逐一手動複製和貼上的情況下，將所有工作表僅儲存為值呢？

使用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 能力。立即下載，體驗前所未有的效率！