手把手教你批量提取网址(提取链接的软件)
这是一篇简洁但是超值的文章。
如果你从事的是电商行业，那么一定会知道生意参谋。
当从生意参谋里导出商品相关数据时，商品名称字段是含有网页链接的，点击名称会自动跳转到相应的天猫或淘宝等商品网页页面。
那么如何将网页地址提取出来，以便应用到其它表格内呢？下面这一个自定义函数，可以实现将超链接提取到单元格。
Function gurl(cl As Range) As String ‘获取单元格内的链接地址
gurl = cl.Hyperlinks(1).Address
End Function
可以提取，当然也可以批量添加到单元格，例如下面这一段代码。
Sub 单元格插入链接()
i = InputBox(“输入网址所在列号”)
For Each rg In Selection
ActiveSheet.Hyperlinks.AddAnchor:=ActiveSheet.Range(rg.Address), Address:=Range(i & rg.Row).Text ‘, TextToDisplay:=” “设置显示文本
Next
End Sub
既然可以实现批量插入到单元格，那么是否可以实现将链接插入到图片呢？of course，我编写了以下一段代码，可以轻松实现批量图片添加超链接。
Sub 图片插入链接()
Dim shp As Shape
i = InputBox(“输入网址所在列号”)
For Each shp In ActiveSheet.Shapes
rg = shp.TopLeftCell.Address
ActiveSheet.Shapes.Range(Array(shp.Name)).Select
ActiveSheet.Hyperlinks.AddAnchor:=Selection.ShapeRange.Item(1), Address:=Range(i &Range(rg).Row).Text
Next
End Sub
但是我发现，将超链接从图片内删除，不可以通过全选实现，所以我又写了一段清除所有图片超链接的代码。
Sub 清除图片连接()
Dim shp As Shape
On Error Resume Next
For Each shp In ActiveSheet.Shapes
ActiveSheet.Shapes.Range(Array(shp.Name)).Select
Selection.ShapeRange.Item(1).Hyperlink.Delete
Next
End Sub
