如何在 Excel 中從列表創建工作表名稱？

這裡，您有一個數據列表，現在您想創建一個新工作簿，其工作表以這些數據命名。如果列表中有幾個數據，您可以選擇創建一個工作簿並手動逐一重命名工作表。但如果列表中有數百個數據呢？現在我將介紹一些技巧，可以根據 Excel 中的數據列表創建工作表名稱。

使用 VBA 從列表創建工作表名稱

使用 Kutools for Excel 根據列表創建帶有工作表名稱的新工作簿

使用 VBA 從列表創建工作表名稱

在 Excel 中，除了 VBA 代碼外，沒有其他技巧可以解決此任務。

1. 按 Alt + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，並將以下 VBA 粘貼到新的模組窗口中，

VBA：從列表創建工作表名稱

Sub CreateSheetsFromAList()
'UpdatebyKutoolsforExcel20150916
    Dim Rg As Range
    Dim Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1 <> "" Then
            Call Sheets.Add(, Sheets(Sheets.Count))
            Sheets(Sheets.Count).Name = Rg1.Value
        End If
    Next
End Sub

3. 點擊 執行 或按 F5，然後會彈出一個 Kutools for Excel 對話框，提醒您選擇要創建工作表名稱所基於的單元格。

4. 點擊 確定。現在一系列的工作表已在當前工作簿的末尾創建。

如果您想創建一個新工作簿，並且該工作簿中的工作表名稱來自當前工作簿的給定列表，則可以使用 Kutools for Excel 的 建立序列工作表 功能。

使用 Kutools for Excel 根據列表創建帶有工作表名稱的新工作簿

有了 Kutools for Excel，您可以使用 建立序列工作表 工具，快速根據新工作簿中的值列表創建序列工作表。

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

1. 選擇您需要的列表，然後點擊 Kutools Plus > 工作表 > 建立序列工作表。參見截圖：

2. 在彈出的對話框中，選擇 基於工作表 列表下的 空白工作表，並勾選 工作表名稱基於 區域下的 選區內的資料，確保文本框中已選擇範圍。參見截圖：

3. 點擊 確定，到目前為止，您可以看到一個帶有特定工作表名稱的新工作簿已創建。

提示：如果您想創建多個格式與特定工作表相同的表格，只需在 基於工作表 列表中選擇該工作表名稱，然後在對話框中指定您想要的工作表名稱即可。