如何根據 Excel 中的儲存格範圍建立序列工作表？

如果您的工作表中有一個數據範圍，現在您想根據儲存格數據建立一系列的工作表，請參見以下截圖。當然，您可以手動逐一編輯工作表名稱，但如果有多個工作表名稱需要編輯，這種方式將會非常麻煩且耗時。在這裡，我將介紹一些快速技巧來幫助您完成這項任務。

使用 VBA 程式碼從儲存格列表建立序列工作表

使用 Kutools for Excel 從儲存格列表建立序列工作表

使用 VBA 程式碼從儲存格列表建立序列工作表

以下 VBA 程式碼可以幫助您在現有工作表後添加一些基於儲存格內容命名的工作表。請按照以下步驟操作：

1. 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：根據儲存格列表添加序列工作表

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. 然後按 F5 鍵運行程式碼，隨後會彈出一個提示框讓您選擇要使用的範圍。請參見截圖：

4. 接著點擊 確定，由儲存格值命名的工作表已經被添加到現有的工作表之後。請參見截圖：

注意：

1. 新工作表將插入當前工作表之後。

2. 如果所選範圍包含空白儲存格，則工作表將根據默認值命名。請參見截圖：

使用 Kutools for Excel 從儲存格列表建立序列工作表

在此，我要介紹一款實用工具——Kutools for Excel，利用其 建立序列工作表 功能，您可以快速創建以月份名稱、日期名稱、自訂列表等命名的工作表。

Kutools for Excel 包含超過 300 種實用的 Excel 工具。免費試用 30 天無任何限制。立即獲取。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 選擇您想要根據其創建工作表的範圍。

2. 點擊 Kutools Plus > 工作表 > 建立序列工作表，請參見截圖：

3. 在 建立序列工作表 對話框中，選擇您想要創建新序列工作表的工作表類型，然後勾選 選區內的資料 選項，請參見截圖：

4. 然後點擊 確定 關閉對話框，並創建了一個包含由所選範圍數據命名的工作表的新工作簿。請參見截圖：

注意：

1. 如果您選擇 Sheet 1 或 Sheet 2，新創建的工作表將與 Sheet 1 或 Sheet 2 的格式相同。

2. 新工作表是在新工作簿中創建的。

3. 如果所選範圍包含空白儲存格，則工作表將根據默認值命名。請參見截圖：

點擊此處了解更多關於 建立序列工作表 功能的資訊。

相關文章：

如何在 Excel 中添加具有自訂名稱的新工作表？