Question

怎样为excel的每个工作表插入目录超链接

我有个excel文件，里面有100个工作表，名字分别为1，2,3,4,5·····99,100，我想达到的目的是，在任何一个工作表中，都能通过超链接跳到另外任何一个工作表，例如，我随便打开工作表37，我想去看工作表83，直接通过超链接就跳到83去。我试过选定所有工作表，然后插入超链接，可是这个按钮是灰色的。【请看清楚问题再回答！！！】我不是要在一个【目录】工作表插入超链接调到其他工作表去，也不是要在每个工作表中添加调回目录的超链接，我是要在每个工作表中都插入像图中这样的目录超链接，想去哪个表就去哪个表，而且后期再增加新的工作表，我还可以批量操作，不需要在每个工作表中手动加一个超链接进去。

Answer 1

请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录：

1、把光标放在第一个工作表希望插入目录的地方；

2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入 - 模块”；

3、在代码编辑区粘贴如下代码：

Option Explicit

Sub AutoGenerateHyperlinks()

Dim nIndex As Integer
Dim oRange As Range

For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next

End Sub

4、键入F5运行，再键入Alt+F11切换回第一个工作表，检查目录超链是否自动建立成功。

追问

我在题目中不是叫你看清楚了吗，不是要在一个目录工作表中做超链接，我是要在每一个工作表中都建立超链接，是每一个工作表都建立目录超链接，我有100个工作表就建立100个目录，你这样相当于只建立一个目录，你这种人不知道活着来干嘛的，还不如走开，为什么知乎那么专业而百度没有，就是因为有你这种人的存在，污染了环境