VBScript技巧

来源:互联网 发布:淘宝宝贝去哪里点发货 编辑:程序博客网 时间:2024/06/05 18:32

获取超链接

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>
原创粉丝点击