excel宏 批量生成返回目录

继上一篇https://blog.csdn.net/whandgdh/article/details/100184677，讲了批量生成目录连接到工作表后，我们还有一种场景是每个工作表中需要能返回到目录中去，如果一个一个的做就非常费时了。
excel示例如下：我们在所有工作表的e2单元格生成返回目录，并能链接到目录中。

VBA代码如下：

Sub 返回目录()
    Dim i%
    For i = 2 To Sheets.Count
        Sheets(i).Range("E2").Formula = "=HYPERLINK(""#目录!B1"",""返回目录"")"
    Next
End Sub

--  E2  返回目录 生成的单元格 目录!B1 返回目录所在的单元格
i=2 表示从工作簿的第二个工作表开始

同样进入目录VBA代码变成界面 并把代码复制过去

运行代码 结果如下：


看到 工作不中的每个工作表单元格E2都有了返回目录链接。

同样为了保存方便，最后删除宏代码再保存即可