excel批量提取超鏈接中的地址

Excel批量提取超鏈接中的地址

如果Excel表格單元格中包含有許多用文本形式顯示的超鏈接，如“給我發郵件”、“訪問我的網站”等，要逐一查看所有超鏈接的地址，用手工的方法顯得太繁瑣，我們可以用自定義函數來批量提取這些超鏈接中的地址，將下列代碼插入到標準模塊中： Function GetURL(rng As Range) As StringOn Error Resume NextGetURL = rng.Hyperlinks(1).AddressEnd Function

使用方法是在單元格中輸入公式，假如單元格D6中含有超鏈接：

=geturl(D6)

還可以使用下面的代碼將工作表中的所有超鏈接地址全部顯示出來，運行代碼前先備份工作簿，因為它會在含有超鏈接的單元格的右側顯示其地址，有可能會破壞工作表結構。

Sub ExtractHL()Dim HL As HyperlinkFor Each HL In ActiveSheet.HyperlinksHL.Range.Offset(0, 1).Value = HL.AddressNextEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。