这是一篇简洁但是超值的文章。

如果你从事的是电商行业，那么一定会知道生意参谋。

当从生意参谋里导出商品相关数据时，商品名称字段是含有网页链接的，点击名称会自动跳转到相应的天猫或淘宝等商品网页页面。

那么如何将网页地址提取出来，以便应用到其它表格内呢？下面这一个自定义函数，可以实现将超链接提取到单元格。

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