1. 打开该Excel文件,切换到“视图”选项卡,点击“宏”→“录制宏”,出现“录制新宏”窗口,在“宏名”定义一个名称为:RemoveLink,点击“确定”退出;
2. 再点击“宏”→“查看宏”,选择“宏名”下的“RemoveLink”并点击“编辑”,打开“Microsoft Visual Basic”编辑器,用如下内容替换右侧窗口中的所有代码,然后保存关闭VBA编辑器:
'删除超链接地址
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
3. 点击“宏”→“停止录制”,如果不停止就执行,会一直记录执行的步骤哦
4. 再点击“宏”→“查看宏”,选择“宏名”下的“RemoveLink”并点击“执行”即可去除该工作表的链接。