怎么批量插入当前文件超链接?
看了一下,首先,要提取所有工作表名称,复制,粘贴值。
参考经验:Excel如何快速批量提取多个工作表Sheet的名称
之后,右击每个名称,按H打开超链接--本文档位置,点击对应名称。依次操作即可。
或者参考以下内容。
在第一个工作表自动批量生成,指向各个工作表的超链目录。
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切换回第一个工作表,检查目录超链是否自动建立成功。
超链接不是有个本文档位置么?能批量操作么?