下面的Excel文件，包含多个工作表，如下所示：
我们通过一段VBA代码，一键提取所有工作表表名，放在一张新的工作表。随着工作表的减少或者增加，点击按钮，还可以自动重新提取目录。
制作好的Excel超链接目录效果如下：
操作步骤如下：
第一步：在“案例1”工作表前面插入一张空白工作表Sheet。
第二步：在“Sheet1”工作表标签，点击右键，选择“查看代码”
第三步：查看代码会激活VBE编辑器界面，点击插入——模块，并且复制以下代码到右边编辑区。
Sub 提取表名() Dim sht As Worksheet, myRange As Range, mycol%, myrow% On Error GoTo 100 Set myRange = Application.InputBox("只选一个!!!", "选择目录起始单元格", , , , , , 8) If myRange.Count <> 1 Then Exit Sub myrow = myRange.Row mycol = myRange.Column With myRange.Resize(500, 1) .ClearContents .NumberFormat = "@" End With myRange = " 目录" For Each sht In Sheets If sht.Name <> ActiveSheet.Name Then myrow = myrow + 1 Set Rng = Cells(myrow, mycol) Rng.Value = sht.Name ActiveSheet.Hyperlinks.Add anchor:=Rng, _ Address:="", SubAddress:=""" & sht.Name & ""!a1", TextToDisplay:=sht.Name End If Next 100: End Sub
第四步：点击“保存”按钮，Excel提示我们是否VB项目，点击“否”。
第五步：弹出的“另存为”对话框，选择文件保存类型为：Excel启用宏的工作薄，保存即可。
第六步：关闭VBE编辑器，回到Excel界面。
第七步：插入一个任意形状，输入一些提示文字，截图如下：
第八步：点击形状，右键选择“指定宏”。
第九步：选择我们上面在模块1录入的“提取表名”的代码，确定。
第十步：点击按钮，弹出的“选择目录起始单元格”，我们点击A1单元格，点击确定，程序即可为我们自动添加所有工作表名称。
需要本篇Excel教程的源文件，请加微信：blwjymx发送给你。
