使用 Excel 宏，将单元格中的链接的实际地址 拷贝到另一列中

使用 Excel 宏，将单元格中的链接的实际地址 拷贝到另一列中

Alt+F11 调出宏编辑器，选择 thisWorkBook

Sub CopyLinkAddressFromCell ()

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

End Sub

关键是这句话

On Error Resume Next

之前没有加，一直会报错 运行时错误，下标越界，后来找判断条件，条件比较多，也比较麻烦，加上这句，报错跳过，就方便了。

A1:A1000 这个参数改成合适的列和条数就行了。