如何從單元格值列表中創(chuàng)建多個(gè)工作表？

網(wǎng)友投稿 382 2025-03-31

如何從單元格值列表中創(chuàng)建多個(gè)工作表？

是否有任何快速或簡(jiǎn)便的方法讓我們根據(jù)Excel中的單元格值列表創(chuàng)建多個(gè)工作表？在本文中，我將討論解決此工作的一些好技巧。

使用VBA代碼從單元格值列表中創(chuàng)建多個(gè)工作表

從單元格值列表創(chuàng)建多個(gè)工作表 Kutools for Excel

使用VBA代碼從單元格值列表中創(chuàng)建多個(gè)工作表

若要快速創(chuàng)建多個(gè)以單元格值列表命名的新工作表，以下VBA代碼可以為您提供幫助。

1。按住 ALT + F11 鍵打開(kāi) Microsoft Visual Basic應(yīng)用程序 窗口。

2。點(diǎn)擊 插頁(yè) > 模塊，然后將以下代碼粘貼到模塊窗口。

VBA代碼：從單元列表創(chuàng)建多個(gè)工作表：

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

Copy

備注：在上面的代碼中， A1：A7 是您要基于其創(chuàng)建圖紙的單元格區(qū)域，請(qǐng)根據(jù)需要進(jìn)行更改。

3。然后按 F5 鍵以運(yùn)行此代碼，并在當(dāng)前工作簿中的所有工作表之后創(chuàng)建新工作表，請(qǐng)參見(jiàn)屏幕截圖：

從單元格值列表創(chuàng)建多個(gè)工作表 Kutools for Excel

如果您不熟悉上述代碼，可以使用以下便捷工具-Kutools for Excel，其 創(chuàng)建序列工作表 函數(shù)，將基于新工作簿中的單元格值創(chuàng)建工作表。

Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在30天內(nèi)免費(fèi)試用.

前往下載30天免費(fèi)試用購(gòu)買(mǎi)貝寶/ MyCommerce

安裝后 Kutools for Excel，請(qǐng)這樣做：

1。點(diǎn)擊 Kutools 加 > 工作表 > 創(chuàng)建序列工作表，請(qǐng)參見(jiàn)屏幕截圖：

2。在 創(chuàng)建序列工作表 對(duì)話框：

（1.）選擇一個(gè)您要基于其創(chuàng)建序列工作表的工作表；

（2.）然后選擇 Data 在范圍選項(xiàng)中 工作表名稱(chēng)基于 列表框，然后單擊按鈕選擇要使用的單元格值。

3。然后點(diǎn)擊 Ok 按鈕，已經(jīng)在新工作簿中使用單元格值的名稱(chēng)創(chuàng)建了工作表，請(qǐng)參見(jiàn)屏幕截圖：

單擊下載并免費(fèi)試用 Kutools for Excel 現(xiàn)在！

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。簡(jiǎn)化復(fù)雜的任務(wù)并像專(zhuān)業(yè)人士一樣瀏覽數(shù)據(jù)。以閃電般的速度體驗(yàn) Excel！