利用VBA批量添加邮件链接

如果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

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/42449.html