Excel利用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
版权声明
本文仅代表作者观点，不代表本站立场。
本站资源均来自互联网整理，版权归原作者所有，切勿用作非法使用和未经授权的商用，因此带来的法律风险与本站无关。
- 上一篇： 利用VBA在Excel中播放MP3音乐
- 下一篇： Excel利用VBA列出工作表中的所有公式
发表评论