Excel如何批量提取超链接
发布网友
发布时间：2022-04-23 10:20
共5个回答
热心网友
时间：2023-10-14 09:20
根本就不需要用到复杂的宏，直接复制一列 然后在那一列的内容第一行右键编辑超链接将里面的【要显示的文字】清空确定 然后按照那个格式往下拖就可以了
热心网友
时间：2023-10-14 09:21
确保宏可以启用。在此Excel中同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
把A2:A48改为你实际有超链接的单元格区域，直接按F5运行此宏，在对应的右边一格出现超链接地址
热心网友
时间：2023-10-14 09:21
一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
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()))
将公式向下填充，直到出错为止，目录就生成了一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
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()))
将公式向下填充，直到出错为止，目录就生成
热心网友
时间：2023-10-14 09:22
Sub 提取超链接()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0,1).Value = HL.Address
Next
End Sub
热心网友
时间：2023-10-14 09:22
看了其他答案，都好复杂啊。
来个简单的方法：复制Excel的全部文字内容，粘贴到下面的工具里面，然后就能一次性得到全部的超链接。
网址链接提取工具：htt=ps://it365.gitlab.io/zh-cn/link-finder/?d12465
我留的链接有点问题，你先复制链接，粘贴到浏览器地址栏，把前面的htt=ps改为https再进去。
这个工具很强大，除了提取excel 文档的链接，提取word、pdf中的链接、网页里面的链接、TXT文本里面的链接都可以提取。
批量提取迅雷下载链接、电驴链接、磁力链接都可以。
还支持网址列表过滤、链接解码等等。
试试吧。
