怎么在EXCEL的多个工作表批量插入返回目录的链接

1.打开excel文档，创建若干个sheet页,例如sheet1,a1,a2,a3等。



2.点击菜单中的开发工具菜单，点击查看代码按钮。



3.如果找不到开发工具菜单，请点击文件->选项->自定义功能区->主选项卡中，选中开发工具复选框。



4.录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列
Sub createmulu()   
For i = 1 To Sheets.Count     
Cells(i, 1) = Sheets(i).Name   
Next   
End Sub



5.在代码编辑窗口中点击绿色运行按钮，或者按F5键，运行后sheet1如下图所示：



6.在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)。



7.鼠标选中B1单元格中，将鼠标放在单元中右下侧，当鼠标变为十字时，向下拖动鼠标。



8.此时点击B列的sheet名称超链接，即可打开相应的sheet页。



9.按shift键，选中除sheet1外的其他sheet页，在A1单元格中录入
=HYPERLINK("#sheet1!A1","返回目录")，然后回车。所有选中sheet页中便成功添加“返回目录”超链接。

如图：

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

如果你更喜欢简单操作，请先在某个工作表手动制作目录并选择所有链接单元格。接着，在其他工作表右键选择格式化单元格，在超链接选项卡里设置相对引用，这样点击时会自动跳转到对应的工作表和位置

使用Power Query也可以实现这个功能。在第一个工作表上创建目录后，复制到其他工作表的顶部。然后，在目标位置输入`=INDIRECT(' & WORKSHEETFUNCTION.TITLE(&[ROW()]) & '! & [A&[COLUMN()]&])`并链接到源数据

在Excel中，你可以使用VBA宏来批量插入目录链接。创建一个新模块，写入Sub InsertHyperlink()，然后用For循环遍历每个工作表，找到标题行，插入公式如`[[Sheet1!A1]]`&'Chapter 1'（替换为实际的单元格和章节名）。记得启用宏