Excel中如何批量删除超链接

来源：新乡恒企会计培训学校时间：2022/11/16 10:20:16

打开该Excel文件，切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：RemoveHyperlinks，点击“确定”退出;

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

SubRemoveHyperlinks()

‘Removeallhyperlinksfromtheactivesheet

ActiveSheet.Hyperlinks.Delete

EndSub

再点击“宏”→“查看宏”，选择“宏名”下的“RemoveHyperlinks”并点击“执行”即可去除该工作表的链接。

用以下代码也可以达到相同的目的：

SubZapHyperlinks()

Cells.Hyperlinks.Delete

EndSub