关于我们 | 友情链接 | 免责声明 | Tag标签 | Office教程网 - 关注office操作技能技巧教程!
你的位置:主页 > Excel教程 >

Excel利用VBA批量添加邮件链接

时间:2016-11-08 20:18  网站:office教程网 www.office26.com   编辑:admin

如果Excel表格中的某个区域有许多文本格式的邮件地址需要添加链接,用手工的方式非常繁琐。可以使用下面的VBA代码来快速添加链接,假设该区域为F2:F18。

Sub ConvertToEmail()
Dim convertRng As Range
Set convertRng = Range("F2:F18")
Dim rng As Range
For Each rng In convertRng
If rng.Value <> "" Then
ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value
End If
Next rng
End Sub

 


------分隔线----------------------------
------分隔线----------------------------

相关文章