如何根據單元格值列表創建多個工作表？

我們是否有任何快速或簡單的方法可以根據 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！