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