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