如何批量建立excel中的超链接
发布网友
共1个回答
热心网友
请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录：
1、把光标放在第一个工作表希望插入目录的地方；
2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入 - 模块”；
3、在代码编辑区粘贴如下代码：
Option Explicit
Sub AutoGenerateHyperlinks()
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub
4、键入F5运行，再键入Alt+F11切换回第一个工作表，检查目录超链是否自动建立成功。
