office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel vba 提取文字中的超链接

2019-11-12 16:31:00
tmtony8
原创
382

在Excel表格中,有下载下来的大量包含网址链接的文本

希望能批量提取所有文本的链接地址,如下图



通过下面代码。可以直接提取超链接地址。使用Range.offset属性向右偏移一个单元输出结果

Sub ExtractHyperlink()
    Dim hlink As Hyperlink
    For Each hlink In ActiveSheet.Hyperlinks
        hlink.Range.Offset(0, 1).Value = hlink.Address
    Next
End Sub



提取成功

    分享