Excel利用VBA批量添加邮件链接
时间:2022-05-02 10:10:24
如果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
标签:Excel,利用,VBA,批量,添加,邮件,链接,如果,Excel
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10创建关机、重启、睡眠快捷方式教程
2023-11-20 01:45:24
![](https://img.aspxhome.com/file/2023/0/49060_0s.png)
Win10如何切换磁盘文件位置?Win10切换磁盘文件位置的方法
2022-02-22 13:55:28
![](https://img.aspxhome.com/file/2023/9/52479_0s.png)
Win10电脑截图黑屏怎么办?
2023-11-23 13:11:17
![](https://img.aspxhome.com/file/2023/3/50633_0s.png)
word怎么删除作者信息
2023-07-22 17:16:46
![](https://img.aspxhome.com/file/2023/8/34548_0s.png)
win10系统不让IE浏览器运行要怎么设置?win10设置不让IE浏览器运行的方法
2023-11-18 09:51:35
![](https://img.aspxhome.com/file/2023/0/49220_0s.png)
excel表格卡的解决方案
2023-07-20 01:22:36
1、打开excel软件
2022-09-22 16:43:12
Word中插入表格后如何设置虚线框
2022-05-18 23:35:28
![](https://img.aspxhome.com/file/2023/2/31792_0s.png)
excel表格如何创建饼图
2023-10-08 13:14:51
Excel 套用表格样式后不能合并的解决方法
2023-06-05 06:44:43
![](https://img.aspxhome.com/file/2023/2/a155012_0s.jpg)
wps文字水印在哪里设置
2023-10-30 06:14:58
![](https://img.aspxhome.com/file/2023/1/a163741_0s.jpg)
Excel表格怎么计算工资所得税?
2023-08-12 14:11:24
excel无法填充序列怎么办?
2022-04-23 15:36:42
![](https://img.aspxhome.com/file/2023/5/36215_0s.jpg)
Win10电脑怎么创建恢复介质让电脑恢复出厂设置?
2023-04-20 05:45:01
![](https://img.aspxhome.com/file/2023/2/52312_0s.jpg)
win10蓝牙鼠标连接不上
2023-11-09 09:59:15
![](https://img.aspxhome.com/file/2023/2/48332_0s.jpg)
Word你的封面信息规整吗?
2023-10-17 11:29:32
![](https://img.aspxhome.com/file/2023/7/24097_0s.png)
excel2016怎么使用快速分析制作数据条?
2022-09-27 15:57:17
![](https://img.aspxhome.com/file/2023/7/41147_0s.jpg)
如何在Excel里计算对数函数值
2022-06-21 12:26:37
![](https://img.aspxhome.com/file/2023/2/a140132_0s.jpg)
excel表格的线不见了处理方法
2022-02-22 19:23:20
Win10手动代理对Nvidia Geforce Experience软件无效怎么解决?
2023-12-01 00:54:05
![](https://img.aspxhome.com/file/2023/8/51138_0s.jpg)