excel中怎样把每个工作表批量添加超链接-excel添加链接地址,如何在自己网站添加链接

Excel小技巧

1、把光标放在第一个工作表希望插入目录zhidao的地方；

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切换回第一个工作表，检查容目录超链是否自动建立成功。
http://jingyan.baidu.com/article/6c67b1d6a1a0992786bb1e77.html

请参考如下步骤在第一个工作zhidao表自动批量生成指向后续各个工作表的超链目录：

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