如何根據 Excel 中的清單來建立工作表名稱?
假設您有一份資料清單,現在希望建立一個新工作簿,並將其中的資料直接作為各工作表的名稱。若清單內容不多,您可以手動新增活頁簿,再逐一重新命名工作表;但若清單包含數百筆資料,又該如何處理?以下將介紹幾種實用技巧,協助您在 Excel 中快速根據資料清單建立對應的工作表。
透過 Kutools for Excel 根據清單建立含指定工作表名稱的新工作簿![]()
使用 VBA 根據清單建立工作表名稱
在 Excel 中,除了使用 VBA 程式碼外,別無他法可完成此任務。
1. 按下 Alt + F11 鍵,即可開啟 Microsoft Visual Basic for Applications 視窗!
2. 點擊插入> 模組,並將下方的 VBA 程式碼貼上至新開啟的模組視窗中。
VBA:根據清單建立工作表名稱
Sub CreateSheetsFromAList()
'UpdatebyKutoolsforExcel20150916
Dim Rg As Range
Dim Rg1 As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
If Rg1 <> "" Then
Call Sheets.Add(, Sheets(Sheets.Count))
Sheets(Sheets.Count).Name = Rg1.Value
End If
Next
End Sub 3. 點擊執行或按下 F5 後,將彈出一個 Kutools for Excel 對話方塊,提示您選取欲用來建立工作表名稱的儲存格。

4. 點擊確定,一系列工作表便會建立於目前工作簿的末尾。

若您想建立一個新工作簿,且其工作表名稱來自指定的當前工作簿清單,可使用 Kutools for Excel 的建立序列工作表功能,輕鬆達成!
透過 Kutools for Excel 根據清單建立含指定工作表名稱的新工作簿
透過 Kutools for Excel,您可運用建立序列工作表功能,根據新工作簿中的值清單,快速打造多張序列工作表!
安裝 免費版 Kutools for Excel後,請依照下列步驟操作:
1. 選取所需清單,然後點擊 KUTOOLS PLUS > 工作表 > 建立序列工作表。請參閱截圖:

2. 在彈出的對話方塊中,於空白工作表下方的清單選取基於工作表,並勾選選區內的資料下方的工作表名稱基於區段,同時確認文字框中已選取正確範圍。請參閱截圖:

3. 點擊確定後,您即可看到已成功建立一個含特定工作表名稱的新工作簿。

提示:若您希望建立多個格式與特定工作表相同的工作表,只需在基於工作表清單中選取該工作表名稱,再於對話方塊中指定用來建立新工作表名稱的依據即可。

最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用