再点击“宏”→“查看宏”,选择“宏名”下的“RemoveHyperlinks”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码(图3),然后保存关闭VBA编辑器:
Sub RemoveHyperlinks()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
再点击“宏”→“查看宏”,选择“宏名”下的“RemoveHyperlinks”并点击“执行”即可去除该工作表的链接。
用以下代码也可以达到相同的目的:
Sub ZapHyperlinks()
Cells.Hyperlinks.Delete
End Sub