如何使用Excel VBA批量提取单元格中的超链接

风晓 2024-01-02 07:27:01  55889

分类专栏：资讯

上次介绍了如何批量给单元格添加上邮箱地址。今天来介绍一下如何批量提取单元格中的超链接，也是需要使用到VBA来进行提取。

如图，现在在单元格中，各人员均对应有邮箱作为超链接。

现在需要将超链接提取出来，放在B列对应单元格中。

VBA代码如下：

Sub GetHyperlink()
    For Each cell In Range("A2:A6")
        cell.Offset(0, 1) = cell.Hyperlinks(1).Address
    Next cell
        Cells.Replace What:="mailto:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False  '将提取出来的"mailto:"去掉
End Sub

在这段代码中，cell.Offset(0, 1) = cell.Hyperlinks(1).Address是将超链接提取出来。但是邮箱作为超链接，提取以后前面会有“mailto:”，因此还需要将这一段去掉，在下面就使用替换，替换内容为空就可以了。

运行之后，邮箱就会在对应单元格中了。

使用上述代码，就可以轻松提取到超链接了。在实际使用的时候，要注意修改区域，以及不同类型链接，是否需要去掉一些字符等，都要根据实际情况来修改。

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

本文链接：https://www.xckfsq.com/news/show.html?id=34001

赞同 0

评论 0 条

如何使用Excel VBA批量提取单元格中的超链接

相关文章

关注我们