建立"目录"标签页面
Sub mulu()
Dim wt As Worksheet
Set wt = Worksheets("目录")
wt.Rows("2:99").ClearContents
Dim sht As Worksheet, irow As Integer
irow = 2
For Each sht In Worksheets
If sht.Name <> wt.Name Then
wt.Cells(irow, "A").Value = irow - 1
wt.Hyperlinks.Add Anchor:=wt.Cells(irow, "B"), Address:="", SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
‘sht.Hyperlinks.Add Anchor:=sht.Cells(1, "H"), Address:="", SubAddress:=wt.Name & "!A1", TextToDisplay:="返回目录"
irow = irow + 1
End If
Next
End Sub