通常，使用 複製 指揮 貼 命令可以手動將工作簿另存為單獨的Excel文件。 首先，選擇要保存為單獨文件的整個工作表，創建一個新工作簿，然後將其粘貼到新工作簿中，最後將其保存。

如果只需要將幾個工作表拆分為單獨的文件，則這是一種易於使用的方法。 但是，通過手動複製和粘貼來拆分許多工作表必須非常耗時且乏味。

此方法將引入“移動或複制”功能，以將選定的圖紙移動或複製到新工作簿並另存為單獨的工作簿。 請執行以下操作：

1。 在“工作表”選項卡欄中選擇工作表，右鍵單擊並選擇 移動或複制 從上下文菜單中。 看截圖：

備註：控股 按Ctrl 鍵，您可以選擇多個不相鄰的工作表，方法是在“工作表”標籤欄中逐一單擊它們； 保持 轉移 鍵，您可以通過單擊“工作表”選項卡欄中的第一個和最後一個來選擇多個相鄰的工作表。

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

3。 現在，所有選定的工作表都被複製到新的工作簿中。 請點擊 文件 > 節省 保存新的工作簿。

快速拆分工作簿以在Excel中分離Excel / PDF / TXT / CSV文件

通常，我們可以使用 移動或複制 Excel 中的功能。 但 Kutools for Excel's 拆分工作簿 實用程序可以幫助您輕鬆拆分工作簿並將每個工作表另存為單獨的PDF / TEXT / CSV文件或Excel中的工作簿。

以下VBA代碼可以幫助您快速將當前工作簿的多個工作表拆分為單獨的Excel文件，請執行以下操作：

1。 為要拆分的工作簿創建一個新文件夾，因為拆分的Excel文件將與該主工作簿保留在同一文件夾中。

2。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

VBA：將工作簿拆分為多個工作簿並保存在同一文件夾中

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4。 按 F5 運行此代碼的關鍵。 然後將工作簿拆分為與原始工作簿在同一文件夾中的單獨Excel文件。 看截圖：

備註：如果其中一張圖紙與工作簿名稱相同，則該VBA無法使用。

如果你有 Kutools for Excel 安裝，其 拆分工作簿 該工具只需單擊幾下，即可方便快捷地將多個工作表拆分為單獨的Excel文件。

1。 安裝後 Kutools for Excel點擊此處成為Trail Hunter Kutools 加 > 拆分工作簿 ，請參見屏幕截圖：

2。 在 拆分工作簿 對話框中，進行以下操作：
（1）默認情況下檢查所有工作表名稱。 如果您不想拆分某些工作表，則可以取消選中它們；
（2）檢查 保存類型 選項;
（3）從 保存類型 下拉菜單中，選擇一種您想要拆分和保存的文件類型。
（4）然後點擊 分裂 按鈕。

備註：如果要避免拆分隱藏的工作表或空白工作表，可以檢查 跳過隱藏的工作表 or 跳過空白工作表 框。

3。 在“瀏覽文件夾”對話框中，請指定目標文件夾以保存拆分的單獨文件，然後單擊 OK 按鈕。

現在，選中的工作表將另存為新的單獨的工作簿。 每個新工作簿均以原始工作表名稱命名。 看截圖：

Kutools for Excel's 拆分工作簿 該工具使您可以輕鬆地根據需要將活動工作簿拆分為單獨的Excel文件（一個文件包含一個工作表），CSV文件，TXT文件或PDF文件。 您可以設置為跳過所有空白和隱藏的工作表。 免費試用！

將多個工作簿合併為一個工作簿

將選擇另存為單個文件