Sub 建立并返回目录() Dim i As Integer For i = 1 To Sheets.Count Sheets(1).Range("b" & 1 + i) = Sheets(i).Name Sheets(1).Range("b" & 1 + i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & Sheets(i).Name & "'!a1", TextToDisplay:=Sheets(i).Name Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("G2"), Address:="", SubAddress:=Sheets("目录").Name & "!A1", TextToDisplay:="返回目录" Next End Sub
代码中的这个Range("G2")可以改动,比如你想在单元格A1创建返回目录的超级链接,可以改成Range("A1")