Excel小技巧
在B2中输入或复制粘贴此公式
=HYPERLINK("#SHEET"&ROW()&"!A1","SHEET"&ROW()&"!A1")
下拉填充
Sub 超链接工作表名()
A = Sheets.Count
For i = 1 To A
istr = "'" & Sheets(i).Name & "'" & "!A1"
Range("D" & i + 1).Hyperlinks.Add anchor:=Range("D" & i + 1), Address:="", SubAddress:=istr, _
ScreenTip:="点击打开" & Sheets(i).Name, TextToDisplay:=Sheets(i).Name
Next
End Sub
这个很简单呀=HYPERLINK("#改成你想连接的那个表格名字!A1","改成你想体现的名字")
可以用&来连接公式
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024