如果一个excel的workbook有多个sheet,那么制作一个目录,并且在每一个sheet上面都制作一个返回目录的超链接就非常方便,制作目录可以用罗兄的百宝箱,下面的代码是制作返回目录的超链接。 Option Explicit Sub 返回目录(p_worksheet As Worksheet) ' ' 返回目录 Macro ' p_worksheet.Activate p_worksheet.Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.FormulaR1C1 = "返回目录" Selection.RowHeight = 16 Selection.ColumnWidth = 9 p_worksheet.Range("A1").Select p_worksheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "工作表目录!A1", TextToDisplay:="返回目录" With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent2 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With End Sub Sub all() Dim g_worksheet As Worksheet For Each g_worksheet In Worksheets 返回目录 g_worksheet Next g_worksheet End Sub