如何在 Excel 中將活頁簿分割成多個獨立的 Excel 檔案？

一般情況下，只要使用複製與貼上指令，就能手動將活頁簿另存為獨立的 Excel 檔案！首先，選取您要另存為獨立檔案的整個工作表，建立一個新工作簿，貼上內容後，立即儲存即可輕鬆完成。

若您只需將少數幾個工作表分割為獨立檔案，這是簡單又高效的方法；但若需手動透過複製與貼上處理大量工作表，則不僅耗時，還相當繁瑣。

此方法將介紹如何運用「移動或複製」功能，將選取的工作表移至或複製到新工作簿，並另存為獨立活頁簿。請依照下列步驟操作：

1. 在工作表標籤欄中選取工作表，按一下滑鼠右鍵，然後從內容功能表中選擇移動或複製。請參閱截圖：

注意：按住 Ctrl 鍵，即可在工作表標籤欄中逐一按一下來選取多個不相鄰的工作表；按住 Shift 鍵，則可透過按一下第一個與最後一個工作表，在工作表標籤欄中選取多個相鄰的工作表。

2. 在「移動或複製」對話方塊中，從移至活頁簿下拉清單中選取（新活頁簿），勾選建立副本選項，然後按一下確定按鈕。請參閱截圖：

3. 現在所有選中的工作表都已複製到一個新工作簿中！立即點選檔案> 儲存，將新工作簿完整保存下來。

若您已安裝 Kutools for Excel，只需輕點幾下，即可透過其分割工作簿工具，快速將多個工作表拆分為獨立的 Excel 檔案，方便又高效！

1. 安裝 Kutools for Excel 後，點選 KUTOOLS PLUS > 分割工作簿，操作畫面請參閱下方截圖：

2. 在分割工作簿對話方塊中，請執行下列操作：
（1）預設已勾選所有工作表名稱。若您不希望分割某些工作表，可取消勾選；
（2）勾選儲存類型選項；
（3）從指定保存格式下拉式清單中，選擇您想要用來分割並儲存的檔案類型；
（4）然後點擊分割按鈕。

注意：若想避免分割隱藏或空白的工作表，請勾選忽略隱藏工作表或忽略空工作表核取方塊。

3. 在「瀏覽資料夾」對話方塊中，指定用來儲存分割後獨立檔案的目的資料夾，然後按一下確定按鈕。

現已將勾選的工作表儲存為全新的獨立活頁簿，每個新工作簿皆以原始工作表名稱命名。請參閱以下截圖：

Kutools for Excel 的分割工作簿工具，能輕鬆將目前工作簿依需求分割為個別 Excel 檔案（每份檔案包含一個工作表）、CSV 檔案、文字檔或 PDF 檔案！您還可設定跳過所有空白及隱藏的工作表。免費試用！

下列 VBA 程式碼可協助您快速將當前工作簿的多個工作表分割為獨立的 Excel 文件，請依下列步驟操作：

1. 請先為要分割的活頁簿建立一個新資料夾，因為分割後的 Excel 檔案將儲存在與主活頁簿相同的資料夾中。

2. 在 Excel 中按住 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 將無法正常運作。

將多個活頁簿合併為單一活頁簿

將選取範圍儲存為獨立檔案