Excel中批量创建超链接，vba代码怎么写？

Question

Excel中批量创建超链接，vba代码怎么写？假如工作薄下有100张工作表，第1张是目录页，其它99张是内容页，现在目录页已经批量创建超链接到99张工作表中，如果想统一在这99张工作表中的A3单元格（这个单元格中是有内容的）创建超链接指向第1张目录页的A1单元格，代码怎么写

Answer 1

第一步：在首页列出所有的Sheet名称；
第二步：编写宏：
Sub GenerateLinks()
Dim tcName As String
With Worksheets("首页")
For rowno = 1 To 200
If .Cells(rowno, 2).Value <> "" _
And Mid(.Cells(rowno, 2).Value, 1, 2) = "测试" Then
tcName = .Cells(rowno, 2).Value
.Hyperlinks.Add Anchor:=.Cells(rowno, 2), Address:="", _
SubAddress:=tcName & "!F2", TextToDisplay:=tcName
End If
Next
End With
End Sub
说明：Hyperlinks 对象是添加链接用的，其中Anchor, Address和SubAddress 是它的属性。
Anchor ：要添加链接的位置 必选参数
Address : 链接地址，一般是外部的链接地址 必选
SubAddress：超链接的子地址，可选
（在链接到当前workbook的sheet时用此地址），本例子就是要用到该参数。
第三步：调用宏，通过创建按钮来执行，或直接在Excel中调用即可批量生成链接。