Sub CreateList() '===================================== '创建一个目录列表进行每张sheet表的链接 '作者:WH '===================================== On Error GoTo Tuichu Dim i As Integer Dim ShtCount As Integer Dim SelectionCell As Range Dim links(100) As String '最多100个 ShtCount = Worksheets.Count If ShtCount = 0 Or ShtCount = 1 Then Exit Sub Application.ScreenUpdating = False For i = 1 To ShtCount links(i - 1) = Sheets(i).Name Next i If Sheets(1).Name <> "List" Then ShtCount = ShtCount + 1 Worksheets.Add BEFORE:=Sheets(1) activesheet.Name = "List" End If Application.StatusBar = "正在生成目录…………请等待!" With Worksheets("List") For i = 0 To UBound(links) If links(i) <> "" Then .Hyperlinks.Add Anchor:=Cells(i + 2, 2), Address:="", SubAddress:= _ "'" & links(i) & "'" & "!A1", TextToDisplay:=links(i) Else Exit For End If Next End With Sheets("List").Cells(1, 2) = "List" Application.StatusBar = False Application.ScreenUpdating = True Tuichu: End Sub 同事抱怨一个工作簿里工作表太多,查找不太方便,我就随手给她写了个模块,建立一个目录链接。