VBScript技巧

获取超链接

Sub getlink()

    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address     '把链接放到放在非单独链接的后面一列
    Next
End Sub

匹配notes link

>\w{5}\W{4}\w{16}/\w{32}/\w{32}</a>