Excel通过宏自动创建工作表超链接目录

因本人从事财务工作，平时基本都是做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

使用方法：

1. 打开Excel，在工作表页签右键，选择”查看代码“;
2. 在弹出的窗口最上方菜单，依次选择”插入-模块“，复制粘贴以上代码，保存；
3. 选择你要创建超链接目录的工作表，点击代码窗口顶部菜单的”运行“；
4. 接下来就是见证奇迹的时刻。