利用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

分享给朋友:
您可能感兴趣的文章:
随机阅读: