Question

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

一个Excel中，关于所有的客户的不同汇总清单有5个，而所有的客户清单均有一个相应的工作表。
需要将所有的汇总清单的客户均超链接至该Excel中相应的工作表，请问要怎么做？
例如:有50个客户，在一个Excel中，有客户1~客户50的工作表，也有汇总1、汇总2、汇总3、汇总4、汇总5这5个汇总工作表。所有汇总表的B列均为客户清单，与客户1~客户50的工作表名一致，请问要怎样批量设置这5个汇总表B列的超链接至相应的工作表？求大神指导，万谢！！！

Answer 1

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

追问

有5个汇总表，每个汇总表都需要建立超链接，这要怎么处理？

Answer 2

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