关于Excel表中批量设置超链接的问题

2025-03-29 22:44:51

推荐回答（1个）

回答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切换回第一个工作表，检查目录超链是否自动建立成功。