Excel vba 提取文字中的超鏈接

2019-11-12 16:31:00
tmtony8
原創
121

在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



提取成功

    分享
    北京十一选五基本走势