如何用VBA代码批量给B列,C列vba怎么向列表框添加内容超链接？

来源：蜘蛛抓取(WebSpider) 时间：2024-01-15 03:15 标签： vba复制指定区域到另一个工作表
上次介绍了如何批量给单元格添加上邮箱地址。今天来介绍一下如何批量提取单元格中的超链接，也是需要使用到VBA来进行提取。如图，现在在单元格中，各人员均对应有邮箱作为超链接。现在需要将超链接提取出来，放在B列对应单元格中。VBA代码如下：Sub GetHyperlink()
For Each cell In Range("A2:A6")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next cell
Cells.Replace What:="mailto:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'将提取出来的"mailto:"去掉
End Sub在这段代码中，cell.Offset(0, 1) = cell.Hyperlinks(1).Address是将超链接提取出来。但是邮箱作为超链接，提取以后前面会有“mailto:”，因此还需要将这一段去掉，在下面就使用替换，替换内容为空就可以了。运行之后，邮箱就会在对应单元格中了。使用上述代码，就可以轻松提取到超链接了。在实际使用的时候，要注意修改区域，以及不同类型链接，是否需要去掉一些字符等，都要根据实际情况来修改。想了解更多Excel的操作技巧，欢迎关注微信公众号：tobefascinating，一起学习，一起进步。发布于 2019-08-26 19:21

我要回帖

更多关于 vba复制指定区域到另一个工作表 的文章

 

随机推荐