获取超链接
Sub getlink()
Dim HL As HyperlinkFor 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>
获取超链接
Sub getlink()
Dim HL As Hyperlink