如何在 Excel 中多次複製多個工作表？

Excel 內建的移動或複製功能提供了一種直接複製工作表的便捷方式！當您需要為原始資料表建立單一備份、與同事分享特定工作表，或將工作表傳輸至另一個檔案時，此方法格外實用。然而，若需為同一張工作表建立多份複本，則必須手動重複操作，因此最適合一次僅需一份複本的情境。

1. 在您要複製工作表的活頁簿中，從工作表標籤列選取欲複製的工作表。
注意：按住 CTRL 鍵並逐一按一下，即可選取多個不相鄰的工作表標籤；若要選取連續的工作表，請先按一下第一個工作表標籤，再按住 SHIFT 鍵，然後按一下序列中的最後一個標籤。

2. 在任一已選取的標籤上按一下滑鼠右鍵，然後從快顯功能表中選擇移動或複製，即可開啟「移動或複製」對話方塊。

3. 在移動或複製對話方塊中，根據您的需求調整下列選項：
（1）使用移至活頁簿下拉式選單，指定要將工作表複製到的活頁簿。您可以選取目前（作用中）的活頁簿、已開啟的其他活頁簿，或選擇在全新的活頁簿中建立工作表。
（2）在插入工作表之前方塊中設定複製工作表的位置。通常將複本放在所有現有工作表之後，會更容易找到。
（3）在按一下確定之前，務必勾選建立副本選項。若您未選取此選項，工作表將會被移動（從原始位置移除）至目的地，而非複製。
（4）按一下確定按鈕以完成複製作業。

一旦確認，Excel 便會在指定的活頁簿與位置，為每個選取的工作表建立一份複本。

若您需要同一張（或多張）工作表的多份複本，請依需求重複此操作。請注意，多次重複後，工作表名稱將自動附加遞增數字（例如「工作表 1 (2)」、「工作表 1 （3）」），方便您追蹤各複製版本。
適用情境：最適合用於備份原始工作表、在檔案間移動選定工作表，或快速複製少量工作表。
優點：內建功能，無需外掛，輕鬆完成一次性複製作業。
缺點：需製作多份複本時效率較低；每新增一份複本都須手動重複操作。

提示與注意事項：

• 若要將工作表複製到新工作簿，請務必將產生的檔案儲存為具意義的名稱，以避免資料遺失。
• 某些指向其他工作表的參照或公式在複製後可能需要調整，尤其是移至生成文件時。
• 工作表的保護、隱藏狀態或巨集可能會保留，也可能不會保留，視您的活頁簿設定而定—若這些功能至關重要，請於複製後仔細檢查。

若您需要在同一活頁簿中多次複製多張工作表，手動重複執行「移動或複製」指令將相當耗時。此時，複製工作表功能（內建於 ）Kutools for Excel）可大幅簡化流程——只需一步驟，即可同時為多張工作表建立多份複本！

1. 點擊 KUTOOLS PLUS> 複製工作表 功能區，即可開啟「批量複製工作表精靈」。

注意：您也可透過 KUTOOLS PLUS> 工作表> 複製工作表 快速存取此功能。

2. 在批量複製工作表對話方塊中，設定您的偏好：
（1）在複製選中的工作表清單中，勾選要複製的工作表。
（2）在複本數量方塊中，指定要建立的複本數量。例如，輸入「3」即可為每個選取的工作表建立三份複本。
（3）設定新複製工作表的位置（例如置於活動工作表之後、所有工作表之前等）。
（4）設定完成後，按一下確定繼續。

3. 系統將顯示確認對話方塊，通知您已成功將選中的工作表複製指定次數。請點擊確定關閉此提示。

此功能讓您無需重複手動操作，即可輕鬆一次複製多張工作表。
適用情境：極適合用於為多人快速建立樣本表單、為每月重複性任務批次複製工作表，或為各部門迅速準備模板。
優點：大幅節省重複作業時間、步驟清晰易懂、完全免去手動重複操作。
缺點：需安裝 Kutools for Excel 增益集。
疑難排解與提示：

• 若要一次複製所有工作表，請在精靈中使用「全選」功能。
• 執行前請仔細確認批量複製的份数與所選工作表是否正確，因為大量複製作業可能需要全面審核，以避免混淆。
• 若您的活頁簿已受保護，請先暫時解除保護再使用此工具，並於必要時在事後重新套用保護。

若您尚未安裝 Kutools for Excel，可透過試用版免費體驗此工具的強大功能！立即免費試用！

當您需要建立大量複本（例如 10 份，甚至 100 份）的單一工作表時，使用 Excel 內建功能會顯得相當繁瑣。此時，只需運用簡單的 VBA 巨集，即可輕鬆自動化整個流程。這對於快速產生預設模板的活頁簿，或為多筆資料輸入（例如問卷或發票）批量複製表單特別實用。

1. 按下 ALT + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 前往插入＞ 模組，並將下列程式碼貼到模組視窗中：

VBA：將特定工作表複製多份至當前工作簿

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

注意：請將程式碼中的「Sheet 1」替換為您欲複製工作表的實際名稱。執行程式碼前，請務必確認該工作表已存在於您的活頁簿中，否則可能導致錯誤發生。

3. 按下 F5 以執行程式碼，系統將提示您輸入欲為指定工作表建立的批量複製份數。

4. 輸入所需數量並確認後，巨集將迅速產生對應數量的複本，每個複本皆擁有獨特名稱（例如「Sheet 1 (2)」、「Sheet 1 （3）」等）。

適用情境：當您需要大量製作相同的工作表，用於資料輸入、工作流程範本或考卷時，此方法將是您的最佳選擇！
優點：自動化重複性作業，高度客製化，大幅提升效率！
缺點：需具備基本 VBA 編輯器操作能力，且可能需在活頁簿中啟用巨集權限。
疑難排解與提示：

• 若您的活頁簿儲存為 .xlsx 格式，請務必另存為 .xlsm 格式，才能保留巨集功能。
• 若您的巨集執行失敗，請仔細檢查程式碼中的工作表名稱拼寫，並確認不存在命名衝突。
• 若您的巨集安全性設為「高」，請調整設定，以允許啟用巨集的活頁簿執行 VBA 程式碼。

當您在多個不同活頁簿中整合工作表時（例如收集多位團隊成員的資料或合併每月報告），Kutools for Excel 的合併工作表功能特別實用。只需簡單幾步，即可直接從多個已關閉的檔案中提取並合併指定工作表至全新活頁簿，大幅提升工作效率！

1. 前往 KUTOOLS PLUS> 合併，立即啟動合併工作表精靈！

2. 在精靈的步驟 1 中，選擇複製多個工作簿中的數據到一個工作表中選項，然後點擊下一步。

3. 在步驟 2 中，請依照下列步驟跨活頁簿選取工作表：
（1) 按一下新增> 檔案 或資料夾，選取要提取工作表的檔案。
（2) 在工作簿列表中，勾選您感興趣的檔案。
（3) 在工作表列表中，勾選您想從各檔案複製的工作表。
（4) 對每個要包含的活頁簿重複此操作。
（5) 完成選取後，立即按一下下一步。

4. 在步驟 3 中，根據需求設定其他複製選項（例如資料與格式的合併方式），然後點擊完成以結束作業。

5. 在出現的對話方塊中，指定新工作簿的儲存資料夾與檔案名稱，然後按一下儲存。

最後，系統可能會詢問您是否要開啟新工作簿，並將此合併情境儲存以供日後使用，請依需求選擇。所有已勾選的工作表皆已成功合併至單一生成文件中。

合併工作表工具功能十分多元：

• 快速將多個不同檔案中的工作表或範圍合併到單一工作表中。
• 將多個活頁簿中同名的工作表整合為一份摘要工作表。
• 整合或合併整個活頁簿，輕鬆掌握管理！
• 在單一位置彙整或計算來自多個來源的資料。

優點：輕鬆整合來自不同人員或專案的資料，非常適合用於例行性報告的長期保存。
缺點：需安裝 Kutools for Excel。
合併大型或結構相似的工作表後，務必仔細檢查資料是否出現重複或遺漏。

如果您尚未試用此工具，立即免費試用！

雖然 Excel 公式無法直接複製整個工作表，但可採用半手動的替代方案：先準備一個新工作表範本，再透過公式從原始工作表提取所需資料。當您只需複製資料（例如用於製作報表或準備範本），而無需一併複製圖表、儲存格格式或巨集時，這個方法格外實用。

1. 建立一個新工作表，並透過儲存格參照或公式複製所需資料。例如，在新工作表的 A1 儲存格中輸入：

=Sheet1!A1

2. 拖曳填滿控點，將此公式複製到所需範圍，即可讓新工作表中的每個儲存格自動連結至來源工作表的對應儲存格。

3. 若要建立更多複本，請複製新工作表，並視需要更新其中的公式或參照（例如改為指向其他來源工作表）。

適用情境：適用於報表範本，或僅需重複資料（無需保留格式或程式碼）的情況。
優點：無需額外工具，立即上手！
缺點：處理大量資料時需手動作業；無法複製進階格式、圖形或 VBA 程式碼。

提示：完成公式連結後，可使用選擇性貼上數值功能，將公式轉為靜態數值，輕鬆取得固定資料，而非動態連結儲存格。

若您經常需要複製一組固定的工作表，可透過 VBA 一次完成全部複製作業，僅需極少的手動輸入。此方法特別適合用於每月、每季或培訓批次分發的標準化範本與表單。

1. 按下 ALT + F11，立即開啟 Visual Basic for Applications 視窗！

2. 在 VBA 編輯器中，點選插入 > 模組，並將下方程式碼複製貼上至新模組視窗中：

Sub CopyListSheets()
    Dim wsName As Variant
    Dim CopyCount As Integer
    Dim i As Integer
    Dim sheetExists As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    wsNames = Array("Sheet1", "Sheet2") 'Edit these names to your target sheets
    
    CopyCount = Application.InputBox("Enter the number of copies:", xTitleId, Type:=1)
    
    For Each wsName In wsNames
        sheetExists = False
        
        For Each ws In Worksheets
            If ws.Name = wsName Then
                sheetExists = True
                Exit For
            End If
        Next
        
        If sheetExists Then
            For i = 1 To CopyCount
                Worksheets(wsName).Copy After:=Sheets(Sheets.Count)
            Next i
        End If
    Next wsName
End Sub

3. 按下 F5 以執行程式碼。當系統提示時，請輸入您希望每個工作表進行批量複製的份數。指定的工作表將各自依設定次數複製，並新增至活頁簿末尾。

注意：請調整 wsNames = Array("Sheet1", "Sheet2") 這一行，加入所有需複製的工作表名稱。此解決方案極適合批次處理標準格式工作表，提升效率、省時省力！

提示與錯誤提醒：

• 若工作表名稱有拼字錯誤或遺漏，該工作表將被跳過。
• 請務必留意 Excel 的工作表數量限制（通常每個活頁簿最多可包含 255 張工作表，但檔案過大時可能在此之前就已明顯變慢）。