VBA生成各个超链接目录 （带冻结首行）

'使用方法：

' 1、在目前的excel中，新建一个sheet，命名为“目录”或者“某人就是帅”等；
’2、快捷键alt+F11,就打开了VBA编辑界面
’3、把这个文件中所有的内容全部复制到名为“sheet1（目录）”下，可能不是sheet1，重点是复制到名为“目录”的sheet下。
’4、按F5执行程序。

’ps1、office-excle下，直接执行就好了；如果是WPS-excle，记得安装一个大概8M的插件，网上下载，或者找我要。
’ps2、EXCEL保存时，会提示是否需要保存宏模板，保存宏的话，扩展名为变成XSLM，下次启动，代码还在。如果不保存宏，下次子表格sheet增加时，还需要把这个复制进去。




Sub 生成目录()
 
    Dim wsht As Worksheet, k%, wshtname$
 
    Columns(1).ClearContents '
        Columns(2).ClearContents '
        
     Range("a1") = "序号" '第一个单元格写入字符串
    Range("b1") = "目录" '第一个单元格写入字符串
    
 
    k = 1 '赋予参数初值
 
    For Each wsht In Worksheets '找到当前工作簿的每个工作表
        Cells(k + 1, 1) = k
    
            wshtname = wsht.Name
 
        If wshtname <> ActiveSheet.Name Then
 
          k = k + 1
 
          ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 2), Address:="", SubAddress:="'" & wshtname & "'!a1", TextToDisplay:=wshtname
 
        End If
      
   Next
 
 
    Columns("A:A").Select
    Selection.AutoFit
    Columns("B:B").Select
    Selection.AutoFit
    ActiveWindow.Split = False
    ActiveWindow.ScrollRow = 1
 
End Sub