Excel VBA︰自訂函數取得儲存格的超連結

Excel 內建函數可以自動設定儲存格內容為超連結

卻沒有根據儲存格取得超連結的文字

像是下圖這樣，壹週刊是從網頁複製的連結

你必須編輯超連結才有辦法看到連結內容

設計了一個巨集公式，新增聚集，在module1寫下以下內容

Function getlink(I As Integer, J As Integer)

getlink = Cells(I, J).Hyperlinks(1).Address

End Function

使用時的儲存格內容鍵入以下內容，D1就是我們要替換的目標

=getlink(ROW(D1),COLUMN(D1))

我還沒辦法做到以下這樣，真好奇是怎麼做的

=getlink(D1)

------------------------
原來是這樣

Function GETURL(HyperlinkCell As Range)

 GETURL = HyperlinkCell.Hyperlinks(1).Address

End Function

http://www.bohack.com/2009/06/get-the-url-from-a-hyperlink-in-excel/