VBA宏批量提取EXCEL表格中超链接（提取链接文字分离）

做推广的经常会把网上的数据网表格中黏贴，经常会粘贴到有带超链接的文章列表信息，这个时候我们需要将文本和超链接进行分离，就需要用到这个宏了

Sub test()
On Error Resume Next
For Each cell In Range("A17:A221")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub

自行修改一下a17:a221 这里改成你需要提取超链接的表格区域，提取的链接会放在你提取列的右边一列