如何在 Excel 中快速創建多個相同格式的工作表？

如果您已經在 Excel 中創建了一個具有特定格式的工作表，並且需要將該格式複製到多個工作表中，您可能想知道如何快速完成。本教程將引導您通過幾種方法來高效地創建多個相同格式的工作表。

使用移動或複製功能創建相同格式的工作表

使用 VBA 創建相同格式的工作表

使用 Kutools for Excel 創建相同格式的工作表

使用移動或複製功能創建相同格式的工作表

在 Excel 中，您可以使用「移動或複製」命令來創建與所選工作表相同格式的新工作表。

1. 點擊「工作表標籤欄」上具有所需格式的工作表，然後右鍵單擊並從上下文菜單中選擇「移動或複製」。請參見截圖：

2. 然後在彈出的對話框中勾選「創建副本」選項。請參見截圖：

3. 點擊「確定」。一個具有相同格式的新工作表將在所選工作表前面創建。請參見截圖：

注意：

(1) 您也可以點擊「開始」>「格式」>「移動或複製工作表」以啟用「移動或複製」對話框。

(2) 使用此方法在需要創建數百個相同格式的工作表時會非常耗時。

使用 VBA 創建相同格式的工作表

有一段 VBA 代碼可以幫助您快速一次性創建多個相同格式的工作表。

1. 按下「Alt」+「F11」鍵打開「Microsoft Visual Basic for Applications」窗口，然後點擊「插入」>「模塊」，將以下代碼複製並粘貼到「模塊」窗口中。

VBA：創建相同格式的工作表。

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
    Application.ActiveWorkbook.Sheets(xWsName).Copy _
    After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2. 按下「F5」鍵運行 VBA 代碼，然後會彈出一個對話框讓您輸入需要複製其格式的工作表名稱。

3. 點擊「確定」，並在另一個彈出的對話框中指定所需的副本數量。請參見截圖：

4. 點擊「確定」。然後會創建六個具有相同格式的工作表副本。

使用 Kutools for Excel 創建相同格式的工作表

如果您不喜歡使用 VBA，這裡介紹給您一個方便的工具——「Kutools for Excel」，您可以使用它的「複製工作表」功能來快速輕鬆地創建相同格式的工作表。

1. 點擊「Kutools Plus」>「工作表」>「複製工作表」。請參見截圖：

2. 在「批量複製工作表」對話框中，按照以下步驟操作：

(1) 從「複製選中的工作表」列表框中勾選您要複製其格式的工作表名稱；

(2) 指定副本的數量；

(3) 指定放置副本的位置。

3. 點擊「確定」，會彈出一個對話框提醒您副本已成功創建。點擊「確定」關閉它。

現在您可以看到指定數量的工作表已經被創建，且具有相同的格式。

點擊這裡了解更多關於批量複製工作表的詳細信息。