制作目录是通过Hyperlinks.Add添加超链接。主要思路是构造工作表索引的连续数字通过map获得表名。效果如下图：

 

 代码：

?
1
2
3
4
5
6
7
8
9
function 制作工作表目录(){
    var arr=Array.from(new Array(Sheets.Count+1).keys()).slice(2).map(itm=>Sheets(itm).Name)
    var sht=Sheets("目录")
    sht.Cells(1,1).Value2="目录超链接"
    arr.forEach((item,index)=>{
        var rng=sht.Cells(index+2,1);
        rng.Value2=item;
        sht.Hyperlinks.Add(rng,"",item+"!$A$1")})
}