如何列出工作簿中的所有可見或隱藏工作表？

如果您有一個包含一些隱藏工作表的大型工作簿，現在您需要在一個工作表中分別列出所有可見和隱藏的工作表，如下圖所示。本文將介紹如何在 Excel 中列出所有可見和隱藏的工作表。

使用 VBA 程式碼分別列出所有可見和隱藏工作表

使用 Kutools for Excel 列出 Excel 中的所有可見工作表

使用 VBA 程式碼分別列出所有可見和隱藏工作表

要在工作表中列出可見和隱藏標籤名稱，以下 VBA 程式碼可能會對您有所幫助，請按照以下步驟操作：

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

2. 點擊 插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：分別列出所有可見和隱藏工作表：

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. 然後按 F5 鍵運行程式碼，所有可見、隱藏、極隱藏工作表都分別列在新工作表中，如下圖所示：

使用 Kutools for Excel 列出 Excel 中的所有可見工作表

如果您有 Kutools for Excel，使用其 創建鏈接表 功能，您可以快速列出當前工作簿中所有帶有超連結的可見工作表。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools Plus > 工作表 > 創建鏈接表，參見截圖：

2. 在 創建鏈接表 對話框中：

(1.) 在 類型 區域下選擇 創建超鏈接；

(2.) 輸入工作表名稱作為索引。

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

(4.) 指定要在工作表索引中顯示工作表名稱的列數。

3. 然後點擊 確定 按鈕，所有可見工作表都被列在新工作表中，不包括隱藏工作表，參見截圖：