[已解决]如何批量做超链接

蔡丽婵19850915 · 发表于 2015-5-26 14:31

sheet总表上的1,2,3........链接到工作表上的1,2,3.......，有没有简单的办法，实际上就是一一对应的，单元格和工作表一一对应的，

最佳答案

冠军欧洲2010

2015-5-26 15:38

=HYPERLINK("#'"&ROW(A1)&"'!A1","工作表"&ROW(A1))

蔡丽婵19850915 · 发表于 2015-5-26 14:33

这个是附件，各位大侠看看

冥王 · 发表于 2015-5-26 14:55

Sub demo()
On Error Resume Next
Dim n%, i%
With ThisWorkbook.Sheets("Sheet1")
n = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
.Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:="'" & .Range("A" & i) & "'!A1"
Next
End With
End Sub

复制代码

冠军欧洲2010 · 发表于 2015-5-26 15:38

=HYPERLINK("#'"&ROW(A1)&"'!A1","工作表"&ROW(A1))

蔡丽婵19850915 · 发表于 2015-5-26 16:20

有简单，又好操作

八方呼应 · 发表于 2015-5-30 17:22

有需求就来找，想学习就要看

		自动登录	找回密码
密码			注册