本文將講述如何在Excel中動態獲取當前工作簿中所有工作表名稱。如何使用Excel VBA宏創建一個包含工作簿中所有工作表名稱的動態列表。

• 使用公式動態獲取所有工作表名稱
• 使用VBA創建所有工作表名稱的動態列表

假設您有一個包含大量工作表的Excel工作簿，并且您希望獲得當前工作簿中所有工作表名稱的動態列表。這篇文章將會講述兩種創建動態工作表名稱列表的方法。

使用公式動態獲取所有工作表名稱

步驟1：轉到Excel功能區中的“公式”選項卡，然后單擊“定義的名稱”組下的“定義名稱”命令。并且將打開“新建名稱”對話框。

步驟2：在“新建名稱”對話框的“名稱”字段中輸入“SheetList”。然后輸入以下公式：

=REPLACE(GET.WORKBOOK(1),1,FIND(“]”,GET.WORKBOOK(1)),””)

步驟3：單擊“確定”按鈕，然后在單元格A1中輸入數字1，在單元格A2中輸入數字2。

步驟4：在A列中選擇這兩個單元格并將它們向下拖動到的輸入序列號3,4,5等。

步驟5：在單元格B1中鍵入以下公式，然后應在單元格B1中輸入第一個工作表名稱。

=INDEX(SheetList,A1)

步驟6：向下拖動Cell B1，直到看到#REF！錯誤。

使用VBA創建所有工作表名稱的動態列表

您還可以使用Excel VBA宏獲取當前工作簿中所有工作表名稱的動態列表，只需執行以下步驟：

步驟1：打開您的Excel工作簿，然后單擊開發工具選項卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

步驟2：然后將出現“Visual Basic編輯器”窗口。

步驟3：單擊“插入” – >“模塊”以創建新模塊。

步驟4：將以下VBA代碼粘貼到代碼窗口中。然后單擊“保存”按鈕。

Sub SheetNames()    Columns(1).Insert    For i = 1 To Sheets.Count        Cells(i, 1) = Sheets(i).Name    Next iEnd Sub

1. Sub SheetNames()
2. Columns(1).Insert
3. For i = 1 To Sheets.Count
4. Cells(i, 1) = Sheets(i).Name
5. Next i
6. End Sub

Sub SheetNames()    Columns(1).Insert    For i = 1 To Sheets.Count        Cells(i, 1) = Sheets(i).Name    Next iEnd Sub

步驟5：返回當前工作表，然后運行上面的excel宏。點擊運行按鈕。

步驟6：讓我們看看結果：