1. 打开工作薄,按"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入\模块".
2. 在弹出的窗口中输入如下代码:
Sub 建立链接()
Dim Pt As Range
Dim i As Integer
With Sheet1
Set Pt = .Range("a1")
For i = 2 To ThisWorkbook.Worksheets.Count
.Hyperlinks.Add Anchor:=Pt, Address:="", SubAddress:=Worksheets(i).Name & "!A1"
Set Pt = Pt.Offset(1, 0)
Next i
End With
End Sub
3. 关闭模块窗口及Microsoft Bisual Basic窗口,回到Excel工作薄中.
4. 按"Alt+F8"键,在弹出的"宏"窗口中选择"建立链接",再点击"执行".这时就会将工作薄中的全部n张工作表都在sheet1中建上链接.
参考资料:以前收集的,忘记出处了.