Sub 添加目录及链接()
Dim i As Integer
Dim x As Worksheet
Set x = Sheets(1)
x.Name = "目录"
For i = 2 To Worksheets.Count
With Worksheets(i)
x.Cells(i, 1) = .Name
.Hyperlinks.Add anchor:=x.Cells(i, 1), Address:="", SubAddress:="'" & .Name & "'!a1"
.Hyperlinks.Add anchor:=Sheets(i).[h1], Address:="", SubAddress:="目录!a1", TextToDisplay:="返回"
End With
Next
End Sub
SubAddress 表示工作簿内的地址,
对于SubAddress的值,直接参照录制宏中的表达方式就行了,即:'表名'!A1