作者：乔山办公网日期：
返回目录：excel表格制作
非常快速的方法：百
这个链接提取工具，能批度量一次性提取所有的超链接地址：
htt-ps://it365.gitlab.io/zh-cn/link-finder/?d7572it365
复制链接，粘贴到浏览知器地址栏，道链接前面的htt-ps改为https再进去。
把Excel表格的内容全部复制，粘贴到这个工具回，然后答全部的链接就提取出来了。
确保宏启用此Excel同时按Alt和F11进入宏界面点菜单插zhidao入模块粘贴下代码：
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
把A2:A48改实际有超回链接单元格区域直接按F5运行此答宏对应右边格出现超链接地址
Excel只有制作超链接的函数，没有函数取得超链接地址。
只能通过Excel VBA来实现，或者Excel VBA自定义函数实现
在Excel中，按Alt+F11键
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim nRow As Integer
nRow = Range("a65536").End(xlUp).Row
For i = 1 To nRow
Range("b" & i) = Range("a" & i).Hyperlinks(1).Address
Next
End Sub
===================================================================
Range("b" & i) = Range("a" & i).Hyperlinks(1).Address
表示在B列显示A列内容的超链接地址。
如果你要提取的不在A列，根据需要，7a64e78988e69d83331修改参数“b” 和 "a" 就可以了。
===================================================================
如果非要用函数实现，需要自定义函数，参考：
http://hi.baidu.com/ytinmtjnlxbjuve/item/d2cb0a2284a179c7a4275a76
方法如下|：
第一步如图：
第二来步选中按确定，如图：
第三步将相关经验网页的文字和连接复制到excel工作表格中，如图：
第四步我们要录制一个新宏自，宏的名称百叫做度jinagyan。路径：菜单栏--工具--宏--录制新宏，如图：
第五步录制新宏后编辑一下，点击菜单栏--工具--宏--宏，找到选择刚才录制的新宏，点击编辑，然后在弹出来的新窗口，将以下代码插入到里面，然后保存，如下图。问
Sub jingyan()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
最后一步，点击菜单栏--工具--宏--宏。找到录制的新宏jingyan，然后点击运行，连接全部会显示答在表格的右边。