[已解决]编辑超链接，不要用HYPERLINK函数

金霏凡

有没有办法不要使用 HYPERLINK 函数，然后合并做成一个链接呢，可以使用辅助列，使用后待会删除辅助列还可以为超链接

要做成成为D列的样子，不要通过一个个点击，这个费力~

最佳答案

月排行榜 / 总排行榜

冥王

2015-5-24 18:01

1. Sub 超链接()
   
2.     Dim strText$, intRow%, i%
   
3.     With ThisWorkbook.Sheets(1)
   
4.         intRow = .Cells(Rows.Count, "A").End(xlUp).Row
   
5.         For i = 2 To intRow
   
6.             strText = .Cells(i, 2) & .Cells(i, 1)
   
7.             .Hyperlinks.Add Anchor:=.Cells(i, 3), Address:=strText, SubAddress:=strText
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

冥王

1. Sub 超链接()
   
2.     Dim strText$, intRow%, i%
   
3.     With ThisWorkbook.Sheets(1)
   
4.         intRow = .Cells(Rows.Count, "A").End(xlUp).Row
   
5.         For i = 2 To intRow
   
6.             strText = .Cells(i, 2) & .Cells(i, 1)
   
7.             .Hyperlinks.Add Anchor:=.Cells(i, 3), Address:=strText, SubAddress:=strText
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

金霏凡

只能使用VBA解决么，没有用过VBA

金霏凡

冥王 发表于 2015-5-24 18:01

只能使用VBA解决么，没有用过VBA

冥王

批量生成超链接 又不能使用函数的话 只有VBA了

冥王

alt+F11进入VBE编辑器，把代码copy到sheet的代码窗口 F5运行即可 不明白怎么操作的话可以百度 很简单的

tt0203

搜一下吧 技巧有解

金霏凡

tt0203 发表于 2015-5-24 18:15
搜一下吧 技巧有解

找不到

tt0203

批量生成超链接（2013新功能）
http://www.excelpx.com/home/show.aspx?id=35258&cid=19