如何从单元格值列表中创建多个工作表？

是否有任何快速或简便的方法让我们根据Excel中的单元格值列表创建多个工作表？ 在本文中，我将讨论解决此工作的一些好技巧。

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

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

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

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

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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 加 > 工作表 > 创建序列工作表，请参见屏幕截图：

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

（1.）选择一个您要基于其创建序列工作表的工作表；

（2.）然后选择 时间 在范围选项中 工作表名称基于 列表框，然后单击 按钮选择要使用的单元格值。

3。 然后点击 Ok 按钮，已经在新工作簿中使用单元格值的名称创建了工作表，请参见屏幕截图：

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