Excel VBA 工作表添加目录超链接

夏日静好

已于 2023-06-14 10:56:58 修改

阅读量1.6k

点赞数 1

分类专栏： Excel使用技巧文章标签： excel

于 2023-06-14 10:55:04 首次发布

原文链接：https://zhuanlan.zhihu.com/p/71139087?utm_id=0

版权

Excel使用技巧专栏收录该内容

13 篇文章

订阅专栏

该文章介绍了一个VBA宏代码，用于在Excel工作簿中自动创建一个包含所有工作表名称的目录，并为每个工作表名添加跳转到相应工作表的超链接。此功能有助于快速导航多工作表的工作簿。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

此为转载，只为方便记录，原链接：

如何使用VBA给Excel工作簿中的工作表创建目录并添加超链接https://zhuanlan.zhihu.com/p/71139087?utm_id=0

Sub CreateMenu()
Sheets.Add(Before:=Sheets(1)).Name = "目录"  '新建一个目录工作表
Worksheets("目录").Activate
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name  '将其他工作表名称分别填入单元格中
        If i <> 1 Then
            Cells(i, 1).Select
                ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Cells(i, 1).Value
                '创建超链接
        End If
    Next i
End Sub