在EXCEL的多个工作表批量插入返回目录的链接

1、首先打开excel2010软件，打开要编辑的表格。

2、单击“开发工具”下的“查看代码”。

3、在打开的对话框中选择“插入”下的“模块”。

4、单击“模块1”，输入代码，代码如下

Sub Button()

Dim MySht As Worksheet, MyButton As Button, ShtName As String
ShtName = "目录" 
For Each MySht In Worksheets
With MySht
If .Name <> ShtName Then
.Shapes(ShtName).Delete’
Set MyButton = .Buttons.Add(60, 20, 70, 40)
With MyButton
.Name = ShtName ‘对按钮命名
.Characters.Text = "返回" & ShtName ‘指定按钮的标题
.OnAction = "backto" ‘指定按钮对应的宏命令
End With
End If
End With
Next
Set MyButton = Nothing
End Sub
Sub backto()
Worksheets("目录").Activate
[a1].Select
End Sub。

5、单击窗口上方的运行图标即可。

1、打开excel2010软件，打开要编辑的表格。

2.单击“开发工具”下的“查看代码”。

3.选择“插入”下的“模块”。

4.单击“模块1”，输入代码。

5.单击运行图标即可。