[已解决]超链接的问题

sexiaoda

如何把A列站点名称添加上B列对应网址超链接 复制到别处也可以用

超链接的问题.rar (11.91 KB, 下载次数: 3)

2017-8-22 17:16 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-22 22:42

1. Sub tt()
   
2. Dim arr, i%
   
3. arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 2 To UBound(arr)
   
5.     Sheet1.Hyperlinks.Add anchor:=Cells(i, 1), Address:=arr(i, 2)
   
6. Next
   
7. Range("b:b").Clear
   
8. End Sub
   

复制代码

注意备份好，运行后网址就没了

跳转到最佳答案楼层

qqyyh

=HYPERLINK("http://bbs.chinaunix.net/","Chinaunix")按照这个去做吧。

苏子龙

1. Sub tt()
   
2. Dim arr, i%
   
3. arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 2 To UBound(arr)
   
5.     Sheet1.Hyperlinks.Add anchor:=Cells(i, 1), Address:=arr(i, 2)
   
6. Next
   
7. Range("b:b").Clear
   
8. End Sub
   

复制代码

注意备份好，运行后网址就没了

sexiaoda

苏子龙 发表于 2017-8-22 22:42
注意备份好，运行后网址就没了

谢谢了 麻烦你了

sexiaoda

qqyyh 发表于 2017-8-22 18:30
=HYPERLINK("http://bbs.chinaunix.net/","Chinaunix")按照这个去做吧。

谢谢了 麻烦你了