因本人从事财务工作，平时基本都是做excel数据处理工作。
本文记录一下常用超链接目录代码：
Sub Add_Sheets_Link()
For i = 1 To ThisWorkbook.Worksheets.Count
Cells(i + 2, 3).Value = Worksheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 2, 3), Address:="", SubAddress:=Cells(i + 2, 3) & "!" & "A1", TextToDisplay:=Cells(i + 2, 3) & "!" & "A1"
Cells(i + 2, 3).Value = Worksheets(i).Name
Next
End Sub
使用方法：
- 打开Excel，在工作表页签右键，选择”查看代码“;
- 在弹出的窗口最上方菜单，依次选择”插入-模块“，复制粘贴以上代码，保存；
- 选择你要创建超链接目录的工作表，点击代码窗口顶部菜单的”运行“；
- 接下来就是见证奇迹的时刻。
-> 加入科技玩家交流群组：点击加入 注意:
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
1.文中二维码和链接可能带有邀请性质，请各位玩家自行抉择。
2.请勿通过链接填写qq号与密码、银行卡号与密码等个人隐私信息。
3.禁止纯拉人头，拉app注册等信息，发现必小黑屋。
4.同一种信息仅发一次，多发会被删除。
5.文章中源码或APP等，无法保证其绝对安全，需自行辨别。
6.文章关联方不想展示也可以微信站长“socutesheep”删除。
本文由 @LAzySheep 发布。如若转载，请注明出处： 科技玩家 » Excel通过宏自动创建工作表超链接目录
萌新报道
萌新报道
萌新报道
谢谢分享，学习了
谢谢分享，学习了
谢谢分享，学习了
谢谢，分享学习了
谢谢，分享学习了
学习一下
谢谢分享，学习了
瞅瞅瞅瞅,mark一手
萌新报道
这真是个好文章，谢谢
谢谢大佬分享，谢谢！
感谢分享，插眼学习
先看看，不明白的地方再问