Excel vba 提取文字中的超鏈接

在Excel錶格中，有下載下來的大量包含網(wǎng)址鏈接的文本

希望能批量提取所有文本的鏈接地址，如下圖

通過下麵代碼?？梢灾苯犹崛〕溄拥刂?。使用Range.offset屬性曏右偏移一箇單元輸齣結(jié)果

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

提取成功