每日Excel分享（VBA）| 一键生成带超链接的工作表目录 就是这么简单

感

谢

关

注

导读

打开VBE编辑器新建模块并添加VBA代码，如下动画

操作方法：

按ALT F11组合键打开VBE编辑器，选中任意一个工作表名点击右键，然后选择“插入——模块”，在模块中粘贴以下代码：

Sub 目录()

Dim sh As Worksheet

Set sh = Worksheets("目录")

sh.Rows("2:1048576").ClearContents

Dim sht As Worksheet, i As Integer

i = 2

For Each sht In Worksheets

sh.Cells(i, "A").Value = i - 1

sh.Hyperlinks.Add anchor:=sh.Cells(i, "B"), Address:="", _

SubAddress:=""" & sht.Name & ""!A1", TextToDisplay:=sht.Name

i = i 1

Next

End Sub

添加一个用于执行VBA代码的按钮，并指定要执行的代码

最终效果如下：

第277天的坚持，离365天的小目标还剩88天

我的Excel，天天与你不见不散