如何同时删除 Excel 整个工作簿中的所有超链接？

我曾经写过一个教程，教大家如何同时删除所有超链接，详情请参阅 Excel VBA(11) – 删除所有超链接 Excel – 如何批量删除所有超链接？

有读者提问了：这个方法只能删除单个工作表中的所有超链接，如果工作簿中有多个工作表，每个工作表中都有超链接，有没有办法可以同时删除整个工作簿中的所有超链接？

今天就给安排上了。

案例：

一个工作簿中有多个工作表，每个工作表中又有多个超链接，如下图 1 至 3 所示。

如何能一次性删除整个工作簿中的所有超链接？效果如下图 4 所示。

解决方案：

1. 按 Alt+F11 --> 在弹出的 VBE 窗体中选择菜单栏的“插入用户窗体”-->“模块”

2. 在右侧的模块窗体中输入以下代码，绿色部分就是代码的解释：

Sub DeleteHyperlinks()Dim W As Integer, H As Integer, i As Integer, j As Integer '声明变量    W = Worksheets.Count 'W 为工作表的数量        For i = 1 To W '遍历所有工作表            H = Worksheets(i).Hyperlinks.Count 'H 为工作表中的超链接总数                For j = 1 To H '遍历每个超链接                    Worksheets(i).Hyperlinks.Delete '依次删除每个超链接                Next j        Next iEnd Sub

3. 选择 VBE 的菜单“运行子过程/用户窗体（F5）”，也可以直接按 F5，整个工作簿中的所有超链接就都删除了。

4. 关闭 VBE，回到 Excel。

5. 选择菜单栏的“文件” -->“另存为”

6. 将文件格式保存为 .xlsm 即可。

不过建议这种批量操作还是慎用，万一工作簿中有非常多的超链接，一时手滑全部删除了，再要一个个加上可够费事的。

很多同学会觉得 Excel 单个案例讲解有些碎片化，初学者未必能完全理解和掌握。不少同学都希望有一套完整的图文教学，从最基础的概念开始，一步步由简入繁、从入门到精通，系统化地讲解 Excel 的各个知识点。

现在终于有了，以下专栏，从最基础的操作和概念讲起，用生动、有趣的案例带大家逐一掌握 Excel 的操作技巧、快捷键大全、函数公式、数据透视表、图表、打印技巧等……学完全本，你也能成为 Excel 高手。

专栏

Excel从入门到精通