用excel处理数据往往分为很多页，这时候通常会建一个首页当做目录来链接到后面的sheet页，今天写了一个脚本实现功能如下：

遍历sheet页数量，生成对应的sheet页名超链接

excel的目录在第三页，故该脚本从第四页开始生成，生成到sheet3.(10+x,4) 上界面原型如图：

Sub lianjie()
Dim x As Long
x = 0
For x = 4 To Sheets.Count '从第四页开始
Sheet3.Hyperlinks.Add Anchor:=Cells(10 + x, 4), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
'从sheet3的地14行第四列开始添加超链接，地址是当前当前工作薄的sheet（X）的名字，显示为sheet（X）的名字

Next
End Sub

说明：Hyperlinks 对象是添加链接用的，其中Anchor, Address和SubAddress 是它的属性

Anchor ：要添加链接的位置 必选参数

Address : 链接地址，一般是外部的链接地址 必选

SubAddress：超链接的子地址，可选