每日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，天天与你不见不散