按ALT+F11,然后选你的工作表,把下面的代码粘贴进去,然后回到EXCEL中按ALT+F8,执行宏Content即可 Sub Content() '创建目录 ' Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet) NewSheet.Name = "Content" NewSheet.Cells(1, 1).Value = "Content" For i = 2 To Sheets.Count NewSheet.Cells(i, 1).Value = i - 1 With Worksheets(1) .Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _ SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name End With Next i End Sub