Excel如何在各个工作表里插入一个返回目录的连接,该怎样做?

如图：

1、选中要插入链接的第一个工作表（sheet2）标签，按住SHIFT键的同时 点击最后一个工作表（sheet3）的标签。
2、 在某一单元格内输入 =HYPERLINK("#目录!A1","目录!A1") 回车。

所有的工作表就都加入了返回目录的链接。

3、这样，当点击sheet2或sheet3中A15单元格的时候，就会自动回到“目录”表的A1单元格。

追答 : 还是可以用VBA，编辑以后复制在模块中运行。
Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(i + 1, 2), Address:="", SubAddress:= _
Worksheets(1).Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Worksheets(1).Cells(i + 1, 2) & "!" & "A1"
Worksheets(1).Cells(i + 1, 2).Value = Worksheets(i).Name
Next
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(4, 4), Address:="", SubAddress:= _
"Sheet1!A1", TextToDisplay:="返回目录"
Next
End Sub
追答 : Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Cells(i + 1, 2), Address:="", SubAddress:= _
Worksheets(1).Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Worksheets(1).Cells(i + 1, 2) & "!" & "A1"
Worksheets(1).Cells(i + 1, 2).Value = Worksheets(i).Name
Next
For i = 1 To ThisWorkbook.Worksheets.Count
Worksheets(i).Hyperlinks.Add Anchor:=Worksheets(i).Cells(4, 4), Address:="", SubAddress:= _
"Sheet1!B" & i + 1, TextToDisplay:="返回目录"
Next
End Sub

使用VBA即可实现，将如下代码复制到sheet1中代码中，然后运行。
Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 1, 2).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 2), Address:="", SubAddress:= _
Cells(i + 1, 2) & "!" & "A1", TextToDisplay:=Cells(i + 1, 2) & "!" & "A1"
Cells(i + 1, 2).Value = Worksheets(i).Name
Next
End Sub

在Excel里添加工作表目录链接挺简单的。首先，选中你想要作为目录的工作表标签，然后点击视图菜单，选择页眉/页脚。在新弹出的窗口中插入一个超链接，指向其他工作表名或位置（记得要用绝对引用确保它随文件移动而保持正确）。输入或者复制目标工作表的完整路径或名称，比如 Sheet1#Sheet2&Sheet3。最后别忘了保存你的设置！这样每次打开这个工作簿时，点击目录就能快速跳转到相应的页面了