取出EXCEL欄位中的超連結

Sub 取出超連結網址()
　Dim xR As Range
　For Each xR In Range([A2], [a65536].End(xlUp))
　　　If xR.Hyperlinks.Count > 0 Then
　　　　xR(1, 5) = xR.Hyperlinks(1).Address
　　　End If
　Next
End Sub


資料來源:http://tw.knowledge.yahoo.com/question/question?qid=1511092001951