Question

Excel如何批量在多个工作表中插入返回目录超链接，在一个工作薄中有多个工作表，

如何添加工作表名称修改目录也同步修改

Answer 1

用以下VBA代码解决:
Sub Mybutton()
Dim Sht As Worksheet, B As Button, Shtn$
On Error Resume Next
Shtn = '总表'
'设置变量shtn为总表的名称，可以根据实际总表的名称做修改
For Each Sht In Worksheets
With Sht
If .Name <> Shtn Then
.Shapes(Shtn).Delete
'删除原有的名称为shtn的按钮，避免重复创建
Set B = .Buttons.Add(0, 0, 60, 30)
'新建按钮，释义见小贴士
With B
.Name = Shtn
'命名
.Characters.Text = '返回总表'
'按钮的标题
.OnAction = 'Totable'
'指定按钮控件所执行的宏命令
End With
End If
End With
Next
Set B = Nothing
End Sub
Sub Totable()
Worksheets('总表').Activate
[a1].Select
End Sub

追问

谢谢大神指教，我是新手公式不能用不懂的改。能帮忙解释清楚一点吗？先谢了

Answer 2

复制下面的公式至各工作表中需要显示超链接的空白单元格中，如:A1

=HYPERLINK("#sheet1!A1","返回目录")

追问

Excel如何批量在多个工作表中插入返回目录超链接，在一个工作薄中有多个工作表，

如何添加工作表名称修改目录也同步修改

可以帮忙没一下吗

Answer 3

这个需要用vba来完成