1、【第一步】打开需要插入带有超链接的工作表目录的工作簿，在第一个工作表之前插入一个新的工作表，名称为“目录”，再单击选择目录工作表
3、【第三部】在打开的VB代码编辑窗口中，选择插入新的模块，把“插入目录”代码复制粘贴到模块中，再点击开始运行代码，然后最小化代码窗口。Sub 插入目录() Dim wt As Worksh髫潋啜缅eet, sht As Worksheet, irow As Integer Set wt = Worksheets("目录") wt.Rows("1:1048576").ClearContents irow = 1 For Each sht In Worksheets wt.Cells(irow, "A").Value = irow - 1 wt.Hyperlinks.Add anchor:=wt.Cells(irow, "B"), Address:="", _ SubAddress:="'" & sht.Name & "'!A1", _ TextToDisplay:=sht.Name irow = irow + 1 NextEnd Sub
6、【第六步】 现在就是最终效果了，带有超链接并美化过的的工作表目录就这样轻松做好了，不要复杂的公式和操作
