在总表!B2输入公式下拉:
=HYPERLINK("#"&A2&"!A1",INDIRECT(A2&"!A1"))
或不用借助A列已有数据,直接把工作表名字集成在公式中:
=HYPERLINK("#"&A2&"!A1",INDIRECT("Sheet"&ROW(A1)&"!A1"))
我把文件传上来,请点击这回答右下角绿色的“点击下载”按钮,下载文件看看效果。
1) 新建一个宏,输入代码如下
Sub AddLink()
Dim rng As Range, myCell As Range
Set rng = Selection
For Each myCell In rng.Cells
myCell.Offset(0, 1).Select
myCell.Offset(0, 1).Formula = "=" & myCell.Text & "!A1"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=myCell.Text & "!A1"
Next
End Sub
2)选中总表A2:A7,运行宏即可
在B2中输入或复制粘贴此公式
=HYPERLINK("#"&A2&"!A1",A2&"!A1")
下拉填充
B2公式:
=HYPERLINK("#"&A2&"!A1",INDIRECT(A2&"!A1"))