excel中怎样把每个工作表批量添加超链接

Question

如题所述

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