一键链接生成目录

Sub ml()

Dim sht As Worksheet, i&, Shtname$

Sheets.Add.Name = "目录汇总表"

Cells(1, 1) = "目录"

i = 1

For Each sht In Worksheets

Shtname = sht.Name

If Shtname <> ActiveSheet.Name Then

i = i + 1

ActiveSheet.Hyperlinks.Add _

anchor:=Cells(i, 1), Address:="", SubAddress:="" & Shtname & "!a1", TextToDisplay:=Shtname

End If

Next

End Sub

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容

  • Excel VBA命令大全
    本例为设置密码窗口 (1) If Application.InputBox(“请输入密码：”) = 1234 Th...
    浮浮尘尘阅读 13,753评论 1赞 20
  • VBA入门教程
    1.1 VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得...
    浮浮尘尘阅读 21,830评论 6赞 49
  • LeetCode/LintCode ReviewPage 题解-总结
    背景 一年多以前我在知乎上答了有关LeetCode的问题, 分享了一些自己做题目的经验。 张土汪：刷leetcod...
    土汪阅读 12,768评论 0赞 33
  • 21、[VBA入门到放弃笔记] 拆分工作表
    按部门列拆分工作表数据,生成新的工作表。 思路： 1.删除除数据源工作表外的所有工作表。 2.提取部门名称，也就是...
    叶知行阅读 889评论 0赞 3
  • 生活中，遇到可爱的人
    每个人都有自己的生活轨迹，是一条圆弧，或是一条直线等。但是，人生中总会遇见一些可爱的人，虽然和他们接触短暂，但却...
    人间闲客阅读 1,138评论 0赞 0