Excel 提取超链接

Sub getchaolianjie()
On Error Resume Next
For Each cell In Range("A1:A100")
           cell.Offset(0, 1) = cell.Hyperlinks(1).Address
           Next
End Sub

提取 A1 到 A100 单元格的超链接地址。