如何快速提取excel超链接文本下的链接

这是自己今天工作上遇到的事情，如何把大致A列这样的变成B列这样

，自己百度了会，终于找到一段给力的代码。在Excel中插入VBA代码是这样的，按alt+F11，进入VBE编辑器，点插入模块，输入代码

Sub 提取链接()

Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks

HL.Range.Offset(0, 1).Value = HL.Address‘就是说把链接放在非单独链接的后面一列。

Next

End Sub

按F5或运行，就OK了。很实用的。