你一定没见过这样的超链接，超链接与工作表自动关联，同步更新

//工作表超链接自动更新

function Workbook_SheetActivate(Sh)

{

if(Sh.Name!='目录'){return;} //如果工作表名不为“目录”，则退出程序

Range("a2:a" + Rows.Count).Value2 = null; //清空“目录”工作表的A列

for(sh1 of Sheets){ //遍历所有工作表

if(Sh.Name!=sh1.Name){ //如果工作表不是“目录”

i = Range("a" + Rows.Count).End(3).Row + 1 //取目录表最后一行数据的下一行

Sh.Hyperlinks.Add(Cells.Item(i, 1), "" //接下一行代码

,'\'' + sh1.Name + '\'' + '!a1', "", sh1.Name)//在目录表设置超链接，引用当前表的A1单元格

sh1.Hyperlinks.Add(sh1.Range('a1'), "" //接下一行代码

, '\'' + Sh.Name + '\'' + '!a'+i, "", "返回") //在当前工作表设置返回目录表的超链接

}

}

}