一键生成目录【excel】

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")