一键生成excel 超链接
Sub lianjie()
Dim x As Long
x = 0
For x = 4 To Sheets.Count '从第四页开始
Sheet3.Hyperlinks.Add Anchor:=Cells(10 + x, 4), Address:=ActiveWorkbook.Name, SubAddress:=Sheets(x).Name & "!A1", TextToDisplay:=Sheets(x).Name
'从sheet3的地14行第四列开始添加超链接，地址是当前当前工作薄的sheet（X）的名字，显示为sheet（X）的名字
Next
End Sub
---------------------
作者：百事悠弦
来源：CSDN
原文：https://blog.csdn.net/zutsoft/article/details/45727609
版权声明：本文为博主原创文章，转载请附上博文链接！
页:
[1]