【Excel】多工作表自动生成目录​

    当一个工作簿中有许多工作表时，快速建立目录的方法.

首先,打开相关Excel文件,插入一个新工作表并改名"目录"

按Alt+f11 打开VBA工程,插入-模块

复制如下代码到右侧窗体中:

----------------------------

Sub getAllWorkSheets()

' 得到所有的sheet页名称，并加上超链接

    totalNum = Worksheets.Count

    Sheet1.Activate

    Range("B:B").Select

    Selection.NumberFormatLocal = "@"

    ' 从2开始就是不带“目录”Sheet页，如果要带，则从1开始

    For index_i = 2 To totalNum

        sheetName = Worksheets(index_i).Name

        Cells(index_i, 2) = sheetName

        tar_sheet = "'" & sheetName & "'"

        Cells(index_i, 2).Select

        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

        tar_sheet & "!A1", TextToDisplay:=sheetName

    Next index_i

End Sub

----------------------------

注意:第四行的 Sheet1 需和左侧目录页相对应.

然后按F5  运行 就可以了.结果如下:

点击就可以快速找到相对应的表!

"如果要是改了表名,或者增删了表,怎么办"

"再运行一次!"