Excel表格中获取或删除超链接的方法

'删除超链接地址
Sub RemoveLink()
'Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
'用下面的代码亦可
'Cells.Hyperlinks.Delete
End Sub

'获取超链接地址
Sub getLink()
Dim hlkTemp As Hyperlink
For Each hlkTemp In ActiveSheet.Hyperlinks
'将抽取的超链接放在包含超链接单元格的后面
hlkTemp.Range.Offset(0, 1).value = hlkTemp.Address
'将抽取的超链接放在包含超链接单元格的前面
'hlkTemp.Range.Offset(0, -1).value = hlkTemp.Address
Next
End Sub