轻松一句话删除所有单元格的超链接

点击上方“Excel和VBA”，选择“置顶公众号”

致力于原创分享Excel的相关知识，源码，源文件打包提供

一起学习，一起进步~~

超链接，主要是将文字和网页链接的一种方式，在Excel当中，有时候也会用到这个超链接，比方说在做简历或者做员工的花名册的时候，员工的邮箱不一定都是统一的，有些人喜欢QQ邮箱，有些人有喜欢163邮箱，这样一来，如果单独登记就会显得很乱，长短不一

那么再这样的情况下，通过超链接的方式去登记，就非常的方便。

不仅可以让格式更加整齐，甚至可以通过超链接直接进入邮箱发邮件

BUT

有时候，这个超链接有非常的碍事，比方说这样

一旦你的鼠标放在了超链接上面，你就会很容易点击到这个超链接，这个时候，超链接就给你操作带来了很大的麻烦。

尤其是你在操作数据的修改和选择的时候。

那么这个时候，删除超链接是最明智的选择。如何批量删除单元格的超链接呢？

场景说明

这个就是我们今天准备的超链接的数据源，非常的简单，我们的目的就是批量快速的删除单元格的超链接。

依稀记得我们之前学些单元格批注的时候，也学习过批注的删除，那个时候我们是通过循环遍历单元格的方式来实现的

那么今天我们删除单元格的超链接，是不是也是用一样的方式

通过循环遍历单元格的方式来实现删除呢？

Sub test()
Dim rng As Range, a As Range
Set rng = Application.InputBox("请选择区域", , , , , , , 8)
rng.Hyperlinks.Delete
End Sub

很明显，思路是对的，不管是批注还是超链接，都是单元格的属性

我们可以通过range的属性来实现。

不过超链接的删除，则更加的简单，完全不需要通过遍历所有单元格这样的操作

直接选择区域之后，就可以通过删除的方式来删除了。

看上面的代码

rng.Hyperlinks.Delete

非常简单的一句话，就可以实现了

并不需要判断单元格是否存在超链接，直接删除即可，我们来看看最终的

通过代码的执行之后，我们可以看到所有的单元格的超链接，都全部删除了，非常的方便

今天的代码解析，就非常的简单了，如何针对单元格的批注进行删除呢

不需要判断，不需要遍历，直接一句话

rng.Hyperlinks.Delete

即可实现，非常简单，对于大家来说，应该很容易就学会啦。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。