Excel宏(VBA)：批量自动生成超链接

    我们常常用Excel来保存测试用例或数据模板，如果一个Excel中有几十个Sheet，为了方便定位到对应的Sheet，那么可以在第一个Sheet里列一个列表，指定超链接，那么就很方便了。
    可是问题是：如果手动一个个来指定超链接，很费时间。
    那么就可以通过宏（VBA）来实现：

    例子：

第一步：在首页列出所有的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时用此地址），本例子就是要用到该参数。

Hyperlinks详细可参考：http://blog.csdn.net/xiaoniao522/article/details/1698869

第三步：调用宏，通过创建按钮来执行，或直接在Excel中调用即可批量生成链接。