作者：乔山办公网日期：
返回目录：excel表格制作
一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
1、用宏3.0取出各工作表的名称，方法：
Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
点"确定 "。
2、用HYPERLINK函数批量e799bee5baa6e79fa5e98193e78988e69d83336插入连接，方法：
在目录工作表（一般为第一个sheet）的A2单元格输入公式：
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成了一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
1、用宏3.0取出各工作表的名称，方法：
Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
点"确定 "。
2、用HYPERLINK函数批量插入连接，方法：
在目录工作表（一般为第一个sheet）的A2单元格输入公式：
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成
非常快速的方法：
这个链接提zd取工具，能批量一次性提取所有的超链接地址：
htt-ps://it365.gitlab.io/zh-cn/link-finder/?d7572it365
复制链接，粘贴到浏览器地址栏，链接前面版的htt-ps改为https再进去。
把Excel表格的内容全部复制，粘贴到这个工具，然后全部的链接就提取出来权了。
Sub 链接百()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Hyperlinks.Count > 0 Then
rng.Offset(0, 1) = rng.Hyperlinks(1).Address
End If
Next
End Sub
如何使度用知请参道照楼上回回答答
确保宏可以启用。在此抄Excel中同时按Alt和F11，进入宏界面百，点菜单的插入，度模块，粘贴如下代码：
Sub test()
For Each cell In Range("E2:E999")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
保存后，直接知按F5运行此宏，在对应的右边一道格出现超链接地址。