在需要生成目錄的工作表里插入下面的代碼脐往，運行即可嘹屯。
Sub ml()
? ? Dim sht As Worksheet, i&, shtname$
? ? Columns(1).ClearContents
? '清空A列數(shù)據(jù)
? ? Cells(1, 1) = "目錄"
? '第一個單元格寫入字符串"目錄"
? ? i = 1
? '將i的初值設置為1.
? ? For Each sht In Worksheets
? ? ? '循環(huán)當前工作簿的每個工作表
? ? ? ? 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
