Excel表格中的文本超链接的地址提取方法

　　EXCEL表格中的超链接是点击可以直接打开的，今天想把这些超链接的网址提取出来，放到锚文本的后面一列。

　　比如我们想把下面表格中的B1:B37区域的超链接提取出来：

　　确保宏可以启用。在此Excel中同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴如下代码：

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

　　把B1:B37改为你实际有超链接的单元格区域，直接按F5运行此宏，在对应的右边一格出现超链接地址。

运行宏

最后效果

资源均来自第三方，谨慎下载，前往第三方网站下载