怎么批量提取单元格里的特定内容

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

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

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

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

批量提取网址,单元格&图片插入网址

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

本网页内容旨在传播知识,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:dandanxi6@qq.com

(0)
上一篇 2023年7月14日 下午12:08
下一篇 2023年7月14日 下午1:03

相关推荐