excel表格怎么批量提取文字的超链接？-提取excel超链接,excel目录批量超链接

Excel只有制作超链接的函数，没有函数取得超链接地址。

只能通过e799bee5baa6e997aee7ad94e4b893e5b19e331Excel 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列，根据需要，修改参数“b” 和 "a" 就可以了。

===================================================================
如果非要用函数实现，需要自定义函数，参考：
http://hi.baidu.com/ytinmtjnlxbjuve/item/d2cb0a2284a179c7a4275a76

确保宏启用复此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运行此宏对应右边答格出现超链接地址

用VBA，假设你的zhidao超链接在H列，那么以下代码运行后将把对应的网址复制内到I列。步骤如下：

ALT+F11,输入如下代码：

Sub x()
On Error Resume Next
Dim i As Long
For i = 1 To Cells(Rows.Count, "H").End(3).Row()
    Range("I" & i) = Range("H" & i).Hyperlinks(1).Address
Next i
End Sub

点击图中红圈处的运行按钮。

如果超链接在别的列，请修改容代码，请用别的列名替换H。

确保宏可百以启用。在此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运行此宏，在对应的右边一格出现超链接地址属