从word和excel中批量提取超连接

若是Excel表格单元格中包含有许多用文本形式显示的超连接，如“给我发邮件”、“访问个人网站”等，要逐一查看全部超连接的地址，用手工的方法显得太繁琐，咱们能够用自定义函数来批量提取这些超连接中的地址，将下列代码插入到标准模块中：

Function GetURL(rng As Range) As String
    On Error Resume Next
    GetURL = rng.Hyperlinks(1).Address
End Function

    使用方法是在单元格中输入公式，假如单元格D6中含有超连接：

    =geturl(D6)

    还能够使用下面的代码将工做表中的全部超连接地址所有显示出来，运行代码前先备份工做簿，由于它会在含有超连接的单元格的右侧显示其地址，有可能会破坏工做表结构。

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub