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

发布网友发布时间：2022-05-24 19:36

共5个回答

热心网友时间：2023-10-28 05:12

首先进入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、将公式复制到所有目标单元格中即可。

热心网友时间：2023-10-28 05:12

假设超链接在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运行此宏，完成。

热心网友时间：2023-10-28 05:12

批量提取超链接，用了以下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

热心网友时间：2023-10-28 05:13

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

热心网友时间：2023-10-28 05:14

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