1.VBA常用小代碼001一鍵生成帶超鏈接的工作表目錄

Sub ml()
    Dim sht As Worksheet, i&, shtname$
    Columns(1).ClearContents
   ‘清空A列數據
    Cells(1, 1) = "目錄"
   ‘第一個單元格寫入字符串"目錄"
    i = 1
   ‘將i的初值設置為1.
    For Each sht In Worksheets
       ‘循環當前工作簿的每個工作表
        shtname = sht.Name
        If shtname <> ActiveSheet.Name Then
       ‘如果sht的名稱不是當前工作表的名稱則開始在當前工作表建立超鏈接
            i = i + 1
           ‘累加i
           ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="",SubAddress:="‘" & shtname & "‘!a1",TextToDisplay:=shtname
           ‘建超鏈接
        End If
    Next
End Sub

數據分析----VBA的使用