[已解决]如何实现表格内的批量设置超链接

lesrine

请问各位大神 可不可能通过公式或是什么的实现以下效果：
sheet1的A1链接到sheet2的A1
sheet1的A2链接到sheet2的B1
sheet1的A3链接到sheet2的C1
。。。。。。
以此类推
就是原文本是“列”，但指向的单元格是“行”
请求帮助
感谢各位{:091:}{:041:}{:251:}{:301:}{:011:}

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2015-5-8 16:12

1. Option Explicit
   
2. Sub 超链接()
   
3.     Dim i As Integer, irow As Integer
   
4.     irow = Cells(Rows.Count, 1).End(3).Row
   
5.     For i = 1 To irow
   
6.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="Sheet2!" & Cells(1, i).Address
   
7.     Next
   
8. End Sub
   

复制代码

VBA的详见附件，公式的直接用，自己选择吧
公式：=HYPERLINK("#Sheet2!"&ADDRESS(1,ROW(A3),2,1),A1)

跳转到最佳答案楼层

baksy

sheet1工作表的A1单元格复制以下公式，下拉；
=OFFSET(Sheet2!$A$1,,ROW()-1,)

baksy

Sheet1 A1公式，下拉；
=OFFSET(Sheet2!$A$1,,ROW()-1,)

爱疯

在Sheet1工作表的A1输入：

=HYPERLINK("#sheet2!R1C"&ROW(),"Click "&ROW())

Excel学徒123

1. Option Explicit
   
2. Sub 超链接()
   
3.     Dim i As Integer, irow As Integer
   
4.     irow = Cells(Rows.Count, 1).End(3).Row
   
5.     For i = 1 To irow
   
6.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="Sheet2!" & Cells(1, i).Address
   
7.     Next
   
8. End Sub
   

复制代码

VBA的详见附件，公式的直接用，自己选择吧
公式：=HYPERLINK("#Sheet2!"&ADDRESS(1,ROW(A3),2,1),A1)

不信这样还重名

Get 到了新技能，同一工作薄中也是要#的，楼上的解法都对

lesrine

第一次发求助帖就得到了大家的热心帮助，实在很感谢各位{:091:}
虽然所有的解决方案都想点赞，无奈最佳只有一个，考虑再三以后决定了要给给出两种解决方案的那位大神{:011:}
其他大神就请接受本人诚挚的谢意和热情的拥抱吧{:221:}{:221:}{:221:}