從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