如何在 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. 单击 确定，至此，您可以看到一个带有特定工作表名称的新工作簿已经创建完成。

提示：如果您想创建多个格式与特定工作表相同的工作表，只需在 基于工作表 列表中选择该工作表名称，然后在对话框中指定所需的工作表名称即可。