Note: The other languages of the website are Google-translated. Back to English

如何從工作簿中創建所有工作表名稱的列表?

假設您有一個包含多個工作表的工作簿,現在您想列出當前工作簿中的所有工作表名稱,是否有任何快速方法可以在Excel中創建這些工作表名稱的列表而無需一一鍵入? 本教程提供有關如何在Excel中列出工作表名稱的說明。


使用公式動態獲取工作簿中所有工作表名稱的列表

在Excel中,您可以定義範圍名稱,然後應用公式列出當前工作簿中的所有工作表名稱,請執行以下步驟:

1。 點擊 公式 > 名稱管理員,請參見屏幕截圖:

2。 在 名稱管理員 對話框,單擊 全新 按鈕,請參見屏幕截圖:

3。 在彈出 新名字 對話框中,在其中指定一個名稱 姓名 文本框,然後將以下公式複製到 文本框,請參見屏幕截圖:

=GET.WORKBOOK(1)&T(NOW())

4。 然後點擊 OK > 關閉 要關閉對話框,現在,請轉到要列出所有工作表名稱的工作表,然後在空白單元格中輸入以下公式:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

備註:在以上公式中, 工作表名稱 是您在步驟3中建立的範圍名稱。

5。 當顯示空白單元格時,然後將填充手柄向下拖動到這些單元格,現在,當前工作簿的所有工作表名稱都已列出,如下圖所示:

6。 如果要為每個工作表創建超鏈接,請使用以下公式:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

備註:在以上公式中, A2 是包含工作表名稱的單元格,並且 A1 是您想要活動單元格所在的單元格。 例如,如果單擊超鏈接文本,它將找到工作表的單元格A1。

7。 現在,當您單擊超鏈接文本時,它將帶您到該工作表,請參見下面的演示:

筆記:
  • 1.使用上述公式,將動態列出創建的工作表名稱,當您在工作簿中更改工作表名稱時,索引工作表名稱將自動更新。
  • 2.您應該將文件另存為 Excel啟用宏的工作簿 格式,如果您希望公式在文件關閉並重新打開後能正常工作。

使用VBA代碼從工作簿中獲取所有工作表名稱的列表

下面的兩個VBA代碼可以幫助您在新工作表中列出所有工作表名稱。 請這樣做:

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

2. 點擊 插入 > 模塊,然後將以下代碼粘貼到 模塊 窗口。

VBA:在新工作表中列出所有帶有超鏈接的工作表名稱:

Sub CreateIndex()'updateby Extendoffice
    Dim xAlerts作為布爾Dim I長於Dim xShtIndex作為工作表Dim xSht作為變量xAlerts = Application.DisplayAlerts Application.DisplayAlerts = False錯誤恢復上一張紙(“ Index”)。Delete On Error轉到0設置xShtIndex = Sheets.Add(Sheets (1))xShtIndex.Name =“ Index” I = 1個單元格(1,1).Value =“ INDEX”對於ThisWorkbook.Sheets如果xSht.Name <>“ Index”然後I = I + 1 xShtIndex。 Hyperlinks.Add Cells(I,1),“”,“'”&xSht.Name&“'!A1”,,xSht.Name如果下一個Application.DisplayAlerts = xAlerts End Sub

2. 然後按 F5 鍵來運行代碼,並且活動工作簿中的所有工作表名稱都已列在名為 Index 指數,並且工作表名稱也鏈接到每個工作表,請參見屏幕截圖:


從具有有用功能的工作簿中獲取所有工作表名稱的列表

隨著 創建工作表名稱列表 第三方加載項的實用程序 Excel的Kutools,您只需單擊即可創建工作表名稱的列表,並使用超鏈接鏈接到每個工作表。

備註:要應用此 創建工作表名稱列表,首先,您應該下載 Excel的Kutools,然後快速輕鬆地應用該功能。

安裝後 Excel的Kutools,請這樣做:

1. 點擊 Kutools 加 > 下載學習單 > 創建工作表名稱列表,請參見屏幕截圖:

2。 在 創建工作表名稱列表 對話框中,請指定以下設置:

(1.)選擇 工作表索引樣式 您可以使用超鏈接或宏按鈕創建工作表名稱。

(2.)輸入圖紙索引的工作表名稱。

(3.)指定工作表索引的位置。

(4.)指定要在新工作表中使用多少列來顯示工作表名稱。

點擊下載並立即免費試用Excel的Kutools!

3. 完成設置後,然後單擊 OK。 在當前工作簿的新工作表中,所有工作表名稱均已列出,並帶有鏈接。 看截圖:

帶超鏈接的工作表名稱 帶宏按鈕的工作表名稱

點擊下載並立即免費試用Excel的Kutools!


更多相關文章:

  • 列出文件夾中的所有文件名並為其創建超鏈接
  • 在日常工作中,您可能需要將多個文件名從文件夾導入到工作表,並為每個文件創建超鏈接,以便快速,輕鬆地打開文件。 也許您可以手動複製和粘貼文件名並為其創建一個超鏈接,但是如果文件夾中有數百個文件,這將浪費大量時間。
  • 根據列表將文件從一個文件夾複製或移動到另一個文件夾
  • 如果您在工作表的一列中有文件名列表,並且這些文件位於您的Computor的文件夾中。 但是,現在,您需要將這些名稱已在工作表中列出的文件從其原始文件夾移動或複製到另一個文件,如下圖所示。 您如何在Excel中盡快完成此任務?
  • 使用下拉列表在工作表之間導航
  • 假設您有一個包含多個工作表的工作簿,現在,您需要創建一個下拉列表或組合框,其中列出了所有工作表名稱,當您從下拉列表中選擇一個工作表名稱時,它將立即跳至該工作表。 本文,我將介紹如何通過使用Excel中的下拉列表在工作表之間導航。

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (19)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
太好了 - 但是我如何在 Visio 中執行此操作,即在 visio 中為工作表索引?
網站主持人對此評論進行了最小化
如何列出子 WB 的 Sheetname 並在 Main WB 中列出?
網站主持人對此評論進行了最小化
ListWorkSheetNames 宏中的“範圍”步驟會生成運行時錯誤 1004:對象全局的方法範圍失敗。 我將它保存在 PERSONAL.XLSB 模塊中,從 Office10 中啟用宏的電子表格運行。 我錯過了什麼? Sub ListWorkSheetNames() For i = 1 To Sheets.Count Range(”A” & i) = Sheets(i).Name Next i End Sub
網站主持人對此評論進行了最小化
最好的它就像魅力一樣
網站主持人對此評論進行了最小化
這很棒,就像魅力一樣
網站主持人對此評論進行了最小化
VBA 代碼可以很好地節省時間,非常感謝
網站主持人對此評論進行了最小化
嗨,我想知道如何在此宏中的選項卡名稱旁邊列出選項卡顏色? 例如在 KutoolsforExcel 工作表列表中: A 列 B 列 TabName1 黃色
網站主持人對此評論進行了最小化
太感謝了! 我非常喜歡你的網站。 在幾分鐘之內,我已經在本網站的兩個部分(包括這個部分)上節省了大量時間。 愛它!
網站主持人對此評論進行了最小化
太有用了,按預期工作!!!!!! 謝謝
網站主持人對此評論進行了最小化
效果很好!! 謝謝!!!!
網站主持人對此評論進行了最小化
非常感謝,這很好用。
網站主持人對此評論進行了最小化
當通過電子郵件或公司策略啟用文檔保護時會導致問題
網站主持人對此評論進行了最小化
傑出的!! 太感謝了! 😊
網站主持人對此評論進行了最小化
我試過這個,它有效。 但是當我再次關閉並打開文件時,我的工作表名稱中的所有值都是空白並且消失了,但公式仍然存在。 我再次嘗試輸入相同的公式,但它不再顯示值
網站主持人對此評論進行了最小化
我關閉並打開我的文檔,我的工作表名稱列中的所有值都消失了並且是空白的,但公式仍然存在。 我嘗試輸入相同的公式,但它不再顯示值
查看附件 (1 / 5)
網站主持人對此評論進行了最小化
你好,安妮,
抱歉回复晚了,創建範圍名稱和公式後,您應該將工作簿另存為 Excel啟用宏的工作簿 格式,所以下次打開 Excel 文件時,公式可以正常工作。
請嘗試,希望對您有所幫助!
網站主持人對此評論進行了最小化
你好,

je viens de tester la methode via macros (dynamique avec formules) et ça marche au poil donc je tiens vraiment à remercier l'auteur de cet article parce que ça va vraiment m'aider dans mon travail ! Juste, je me permet de corriger les formules pour la version française。 Et alors je ne sais pas si c'est parce que je suis sous la version 2019 mais Excel rouspète quand il n'y a pas d'argument en 3ème position de la fonction STXT(“MID” en version anglaise) donc obligé d' en rajouter 聯合國Donc voilà ce que ça donne :

=LIRE.CLASSEUR(1)&T(維護())

=SIERREUR(INDEX(STXT(nomsFeuilles;TROUVE("]";nomsFeuilles)+1,255;20);LIGNES($A$2:A2));"")

辛苦了! ;-)
網站主持人對此評論進行了最小化
你好,吉茲米爾
感謝您的評論,Excel 中有些功能僅適用於英文。
您的公式可能對其他人有所幫助。
再次感謝!
網站主持人對此評論進行了最小化
首先感謝作者。 並添加捷克語版本。

tp 3. =O.KNIZE(1)&T(NYNÍ())
tp 4. =IFERROR(INDEX(ČÁST(nazvylistu;NAJÍT("]";nazvylistu)+1;255);ŘÁDKY($A$2:A4));"")
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護