excel的sheet名称目录链接

原文链接： https://jingyan.baidu.com/album/d2b1d10297ceb35c7e37d499.html?picindex=3

 

1、录入以下下代码。目的是用来在sheet1页中的第一列生成sheet名字列

Sub createmulu()   

    For i = 1 To Sheets.Count     

        Cells(i, 1) = Sheets(i).Name   

    Next   

End Sub

 

2、 在sheet1中B2单元格中定义超链接函数，录入=HYPERLINK("#"&A2&"!A1",A2)