昕中的世界: 2009年6月

2009/6/11

在定义一个名称为：RemoveHyperlinks的宏，点击“确定”退出

再点击“宏”→“查看宏”，选择“宏名”下的“RemoveHyperlinks”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码，然后保存关闭VBA编辑器：

　　Sub RemoveHyperlinks()
　　'Remove all hyperlinks from the active sheet
　　ActiveSheet.Hyperlinks.Delete
　　End Sub

再点击“宏”→“查看宏”，选择“宏名”下的“RemoveHyperlinks”并点击“执行”即可去除该工作表的链接。
用以下代码也可以达到相同的目的：

　　Sub ZapHyperlinks()
　　Cells.Hyperlinks.Delete
　　End Sub