在excel表同一工作簿中，对于不同名称工作表建立批量超链接

给一个VBA解决的办法：

打开此工作薄，按【ALT+F11】，主菜单“插入”——“模块”，将下述代码粘贴到右侧编辑区，退出VBAProject编辑器，执行“宏”——选择这个宏，确定，即快速建立超链接：

【注意】：
1、上述代码将在汇总表的A列建立超链接，如果与你的实际情况有出入，请自行修改代码中单元格的引用；
2、各子表中A1单元格建立返回汇总表的超链接，如果与实际不符，请自行修改代码中单元格引用。
由于你没有提供更详细的情况，剩下的工作只能你自己完成了。

Sub LinkSheet()
    Dim k%
    Sheets("汇总").Range("A:A").ClearContents
    For Each sh In Sheets
        If sh.Name <> "汇总" Then
            With Sheets("汇总")
                .Cells(k + 1, 1) = sh.Name
                .Hyperlinks.Add Anchor:=.Cells(k + 1, 1), Address:="", SubAddress:= _
                    sh.Name & "!A1", TextToDisplay:=sh.Name
            End With
            sh.Hyperlinks.Add Anchor:=sh.[a1], Address:="", SubAddress:= _
            "汇总!A1", TextToDisplay:="返回"
            k = k + 1
        End If
    Next
End Sub