作者:乔山办公网日期:
返回目录:excel表格制作
Sub 更新来所有表的超自级链zhidao接()
Dim c As Range, h As String, i As Long
For i=2 to 1000
set c = Cells(i, 1) 'A2:A1000
If c.Value <> "" Then
h = "'2'!A" & (i-1)
If c.Hyperlinks.Count > 0 Then
c.Hyperlinks(1).SubAddress = h
Else
c.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:=h, TextToDisplay:=c.Value
End If
End If
Next c
End Sub