如何在Excel中的工作簿中僅保存一個工作表？

使用 Excel 時，很容易將工作簿中的一個工作表另存為新的 Excel 文件。 但是，如果您只保留一個工作表並刪除工作簿中的其他工作表怎麼辦？ 本文將向您展示如何僅將一個工作表另存為新的 Excel 文件，然後刪除當前工作簿中的非活動工作表。

通過移動或複制僅將一個工作表另存為新的Excel文件
使用VBA在當前工作簿中僅保存一個工作表
一鍵保存當前工作簿中的一個工作表

---

通過移動或複制僅將一個工作表另存為新的Excel文件

移動或複制 Excel功能的實用程序可幫助您輕鬆地將某些工作表另存為新的Excel文件。 您可以執行以下操作。

1.在工作表標籤欄中右鍵單擊工作表標籤（您需要另存為新文件的工作表），然後單擊 移動或複制.

2。 在裡面 移動或複制 對話框中，選擇（新書） 來自 預訂 下拉列表中，檢查 建立副本 框，然後單擊 OK 按鈕。 看截圖：

3.然後將指定的工作表移至新創建的工作簿中，請手動保存此工作簿。

---

使用VBA在當前工作簿中僅保存一個工作表

如果要刪除所有工作表並僅在當前工作簿中保存一個特定的工作表，則以下VBA代碼可以為您提供幫助。

1。 按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2。 在裡面 Microsoft Visual Basic應用程序 窗口中，單擊 插入 > 模塊。 然後將下面的VBA代碼複製並粘貼到“模塊”窗口中。

VBA代碼：刪除除當前工作簿中的某些工作表以外的所有工作表

Sub DeleteSheets1()
    Dim xWs As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each xWs In Application.ActiveWorkbook.Worksheets
        If xWs.Name <> "test" Then
            xWs.Delete
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

備註：在代碼中，“測試”是我們僅需要保留在當前工作簿中的工作表名稱。 請更改為您的工作表名稱。

3.按F5鍵運行代碼。 然後，您可以看到當前工作簿中的所有工作表都被刪除，但是指定的一個。 然後根據需要保存工作簿。

---

一鍵保存當前工作簿中的一個工作表

刪除所有不活動的工作表 的效用 Excel的Kutools 一鍵式幫助您快速刪除除當前工作表以外的所有工作表。

1.切換到只需要保留在當前工作簿中的工作表，然後單擊 Kutools 加 > 下載學習單 > 刪除所有不活動的工作表。 看截圖：

然後會彈出一個提示對話框，如果您決定刪除它們，請單擊 OK 按鈕。

然後，所有不活動的工作表將立即從當前工作簿中刪除。

---

僅保存一個工作表