如何根据单元格值列表创建多个工作表？

在Excel中，有没有什么快速或简便的方法可以根据单元格值列表创建多个工作表？本文将介绍一些解决此问题的好技巧。

使用VBA代码根据单元格值列表创建多个工作表

使用Kutools for Excel根据单元格值列表创建多个工作表

使用VBA代码根据单元格值列表创建多个工作表

要快速创建以单元格值列表命名的多个新工作表，以下VBA代码可以帮助您完成。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：根据单元格列表创建多个工作表：

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

注意：在上述代码中，A1:A7 是您希望基于其创建工作表的单元格区域，请根据需要进行更改。

3. 然后按 F5 键运行此代码，新的工作表将在当前工作簿的所有工作表之后创建，参见截图：

使用Kutools for Excel根据单元格值列表创建多个工作表

如果您不熟悉上述代码，这里有一个方便的工具——Kutools for Excel，通过其 创建序列工作表 功能，工作表将基于单元格值在新工作簿中创建。

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 单击 Kutools Plus > 工作表 > 创建序列工作表，参见截图：

2. 在 创建序列工作表 对话框中：

(1.) 选择一个您希望基于其创建序列工作表的工作表；

(2.) 然后选择 数据 在某个区域选项中，从 工作表名称基于 列表框中选择，并点击 按钮以选择您希望使用的单元格值。

3. 然后单击 确定 按钮，工作表将以单元格值命名并在新工作簿中创建，参见截图：

立即点击下载并免费试用 Kutools for Excel！