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

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

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

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

4、单击“模块1”，输入代码，代码如下SubButton()DimMyShtAsWorksheet,MyButtonAsButton,ShtN锾攒揉敫ameAsStringShtName="目录"ForEachMyShtInWorksheetsWithMyShtIf.Name<>ShtNameThen.Shapes(ShtName).Delete’SetMyButton=.Buttons.Add(60,20,70,40)WithMyButton.Name=ShtName‘对按钮命名.Characters.Text="返回"&ShtName‘指定按钮的标题.OnAction="backto"‘指定按钮对应的宏命令EndWithEndIfEndWithNextSetMyButton=NothingEndSubSubbackto()Worksheets("目录").Activate[a1].SelectEndSub。

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