打开excel表格，可看到第一个工作表为目录的显示表

然后按快捷键alt+f11打开宏界面

然后插入模块

双击模块并输入如下的代码：Sub 创建返回按钮() Dim wSht As Worksheet, B As Button, wShtname$ On Error Resume Next wShtname = 目录表 For Each wSht In Worksheets With wSht If .Name wShtname Then .Shapes(wShtname).Delete Set B = .Buttons.Add(0, 0, 90, 30) With B .Name = wShtname .Characters.Text = 返回目录表 .OnAction = 返回到目录表 End With End If End With Next Set B = Nothing End Sub Sub 返回到目录表() Worksheets(目录表).Activate End Sub Dim wsht As Worksheet, k%, wshtname$ Columns(1).ClearContents 清空A列数据,这样就可以随着工作表的变化，生成不同的工作表目录 Range(a1) = 超链接目录 第一个单元格写入字符串 k = 1 赋予参数初值 For Each wsht In Worksheets 找到当前工作簿的每个工作表 wshtname = wsht.Name If wshtname ActiveSheet.Name Then k = k + 1 ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 1), Address:=, SubAddress:= wshtname !a1, TextToDisplay:=wshtname End If Next End Sub

回到excel界面，按快捷键alt+f8打开宏操作界面

找到命令按钮生成返回按钮，单击执行即可

看到生成的超链接，单击即可进入对应的工作表，单击返回的按钮即可返回

最后保存文件