将文本转换为电子邮件的VBA代码

2013-09-04 15:32 阅读 401 次 评论关闭

以下的代码功能是,将EXCEL中单元格的文本转换电子邮件地址。

以下代码可循环访问一列范围数据,并将每个条目转换为一个电子邮件地址。

Dim convertRng As Range

'Change the range to suit your need.

Set convertRng = Range("Z1:Z99")

Dim rng As Range

For Each rng In convertRng

If rng.Value <> "" Then

ActiveSheet.Hyperlinks.Add rng, "mailto:" & rng.Value

End If

Next rng

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:将文本转换为电子邮件的VBA代码 | 猎微网
分类:Excel VBA 标签:, , , ,

评论已关闭!