Excel 2010 同一个工作薄中批量建立超链接

给一个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

同一文件夹excel表格批量超链接_百度经验 http://jingyan.baidu.com/article/7f41ecec017730593d095ce9.html