EXCEL提取单元格链接

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

2、点菜单的插入，模块，粘贴如下代码：Sub test()For Each cell In Range("A1:A241")cell.Offset(0, 1) = cell.Hyperlinks(1).AddressNextEnd Sub

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

4、按F5运行此宏对应的右边一格出现超链接地址。