如何根据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中添加具有自定义名称的新工作表？