EXCEL提取单元格链接

1、在此Excel中同时按Alt和F11，进入宏界面

2、点菜单的插入，模块，粘贴如下代码：

Sub test()
For Each cell In Range("A1:A241")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub

3、把A1:A241改为你实际有超链接的单元格区域

4、按F5运行此宏

对应的右边一格出现超链接地址。