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 单元格的超链接地址。
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 单元格的超链接地址。