电脑一台
EXCEL 07及以上版本（03稍有差异）
人，基本的动手能力即可
右边工程窗口，Sheet1标签右击-插入模块，双击模块，粘贴，我提供的代码即可
点击F5执行（其他按钮等方法这里不多讲）
回到工作表，查看效果！这是我们的超链接目录已经创建好了，点击相应链接，链接到对应的工作表
详细代码（供参考）：一键目录Sub 一键目录()'个人写好，收藏的代码，大家粘贴即可 Dim i% Application.DisplayAlerts = False Application.ScreenUpdating = False On Error Resume Next If Not Sheets("目录") Is Nothing Then Sheets("目录").Delete End If Sheets.Add.Name = "目录" Sheets("目录").Move ThisWorkbook.Sheets(1) With Sheets("目录") .Columns("a:B").Clear .Range("a1:b1") = [{"编码", "目录"}] For i = 2 To Sheets.Count .Cells(i, 1) = i - 1 .Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _ SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name Next .Cells(2, 1).Select ActiveWindow.FreezePanes = True End With Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub
更多通用教程经验后期发布，我的特色就是动画教程，方便易懂！