之后有朋友问，如何一键在分表生成返回总表的按钮？
关于这个问题，也曾回答过函数的解决方法，比较简单，一个函数而已，参见教程链接：如何快速在多个分表批量创建返回总表的超链接？
当然，VBA的方法也不复杂，代码如下：
Sub Mybutton() Dim sht As Worksheet, btn As Button, strShtName$ On Error Resume Next strShtName = "总表" '设置变量shtn为总表的名称，可以根据实际总表的名称做修改 For Each sht In Worksheets With sht If .Name strShtName Then .Shapes(strShtName).Delete '删除原有的名称为strShtName的按钮，避免重复创建 Set btn = .Buttons.Add(0, 0, 60, 30) '新建按钮，释义见小贴士 With btn .Name = strShtName '命名 .Characters.Text = "返回总表" '按钮的标题 .OnAction = "Totable" '指定按钮控件所执行的宏命令 End With End If End With Next Set btn = NothingEnd SubSub Totable() Worksheets(strShtName).Activate [a1].SelectEnd Sub
小贴士：
1，代码有两个sub过程构成，第一个sub过程遍历工作表，并在每个工作表建立指定宏名称为第2个sub过程的按钮，第二个sub过程是激活名称为"总表"的工作表，并选中a1单元格。
2，第1个sub过程使用add方法在工作表中添加一个按钮控件，add方法语法如下：
表达式.Add(left,right,width,height)
表达式是必须的，代码一个表单控件集合。例如按钮buttons,标签labels，列表框listboxes，复选框checkboxes等。
left和right也是必须的，表示该控件相对于工作表的A1单元格左上角的初始坐标。
width和height是必须的，表示该控件初始化的宽度和高度。
呵~是不是很简单呢？复制代码运行试验一下吧~
……拥抱……致安…………
转播
