作者：绿色风
分类：
时间：2022-08-18
浏览：145
楼主
lrlxxqxa |
Q：如何批量添加超链接？
问题描述：如下图所示，根据不同的地址链接到不同的网站？
A：给出两种解法，分别由VBA和函数实现
解法一：VBA法- Sub 批量增加超链接()
- '声明变量
- Dim Rng As Range
- '遍历A列有数据的区域
- For Each Rng In [a1].Resize(Cells(Rows.Count, "a").End(3).Row)
- '如果不为空则执行循环
- If Rng.Value <> "" Then
- '添加超链接
- ActiveSheet.Hyperlinks.Add Rng, "http://" & Rng.Value, "", "http://" & Rng.Value, Rng.Value
- End If
- Next Rng
- End Sub
解法二：函数法
B1单元格输入公式- =HYPERLINK("http://"&A1,A1)
向下填充即可。
 批量增加超链接.rar
|
2楼
rabbitllu |
学习了VBA（注释很详细，很适合学习），和函数两种方法批量添加超级链接，谢谢锐版 |
3楼
狐狸 |
对于我来说，还是很难，不过我会认真学，谢谢 |
4楼
larkzh |
学习了。 |
5楼
janezhou198610 |
学习中 |
6楼
tmsjh2002 |
学习了 |
7楼
zyq2010 |
请教lrlxxqxa ：vba法中的第5句和第9句能帮助我再详细地指导一下吗？还是有点迷糊看不太懂。多谢。 |
8楼
老乔在线 |
学习一下。对工作有帮助。 |
9楼
32828225 |
很有用哦！可以作为“我的网址导航”
可以增加用户名和登陆密码在网址里面，点击就自动登陆吗？ |
10楼
aheaxi |
学习了。。 |
11楼
hustclm |
函数的应用方法貌似更广阔一点。简单易上手。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一