如何把excel里面的超级链接都导出来，要那些链接

是批量0，因为比较多

2025-04-13 14:46:43

推荐回答（5个）

回答1：

首先进入VBA编辑器（Alt+F11） 1、插入-模块 2、添加以下代码 Function myHyperlink(Target As Range) As String Application.Volatile True myHyperlink = Target.Hyperlinks(1).Address End Function 3、回到你的工作表中，在需要显示超链接的单元格中输入 =myHyperlink(A1) 注：A1为源单元格 4、将公式复制到所有目标单元格中即可。

回答2：

假设超链接在A列，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
Dim i As Integer
For i = 1 To Range("A9999").End(xlUp).Row
If Range("A" & i).Hyperlinks.Count > 0 Then Range("B" & i) = Range("A" & i).Hyperlinks(1).Address
Next i
End Sub

在此界面直接按F5运行此宏，完成。

回答3：

批量提取超链接，用了以下1段宏代码完全实现:Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.SubAddress 'HL.Address
Next
End Sub

回答4：

这个目前没有什么办法真的，因为表格里的链接是重叠的，没办法的

回答5：

还是一步一步来吧，不可急于求成！