首先要在此工作簿中，建立一个名叫“首页”的工作表，然后执行下面代码即可。 Sub 链接() Sheets("首页").Select '显示所有工作表 For i = 1 To Sheets.Count Cells(i, 1).Value = Sheets(i).Name Next '超链接 For i = 1 To Sheets.Count t = Cel...
插入超链接
