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