如果Excel表格單元格中包含有許多用文本形式顯示的超鏈接，如“給我發(fā)郵件”、“訪問我的網(wǎng)站”等，要逐一查看所有超鏈接的地址，用手工的方法顯得太繁瑣，我們可以用自定義函數(shù)來批量提取這些超鏈接中的地址，將下列代碼插入到標(biāo)準(zhǔn)模塊中：
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
使用方法是在單元格中輸入公式，假如單元格D6中含有超鏈接：
=geturl(D6)
還可以使用下面的代碼將工作表中的所有超鏈接地址全部顯示出來，運(yùn)行代碼前先備份工作簿，因?yàn)樗鼤?huì)在含有超鏈接的單元格的右側(cè)顯示其地址，有可能會(huì)破壞工作表結(jié)構(gòu)。
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
