别再傻傻开通WPS会员了!智能工具箱:建目录、排序、改名,WorkBuddy一键搞定

与 30万 粉丝一起学Excel、AI

Sub 创建目录与双向链接()    Dim ws As Worksheet, catWs As Worksheet    Dim i As Long    ' ① 如果已经有“目录”表，先删掉，避免重复运行报错    Application.DisplayAlerts = False    On Error Resume Next    ThisWorkbook.Worksheets("目录").Delete    On Error GoTo 0    Application.DisplayAlerts = True    ' ② 新建“目录”表，并放到最前面    Set catWs = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))    catWs.Name = "目录"    catWs.Range("A1").Value = "工作表目录"    ' ③ 第一遍遍历：把分表名称写进A列，并加指向分表的超链接    i = 2    For Each ws In ThisWorkbook.Worksheets        If ws.Name <> "目录" Then            catWs.Cells(i, 1).Value = ws.Name            catWs.Hyperlinks.Add Anchor:=catWs.Cells(i, 1), _                Address:="", _                SubAddress:="'" & ws.Name & "'!A1", _                TextToDisplay:=ws.Name            i = i + 1        End If    Next ws    ' ④ 第二遍遍历：在每个分表A1加“返回目录”的超链接    For Each ws In ThisWorkbook.Worksheets        If ws.Name <> "目录" Then            ws.Range("A1").Value = "返回目录"            ws.Hyperlinks.Add Anchor:=ws.Range("A1"), _                Address:="", _                SubAddress:="目录!A1", _                TextToDisplay:="返回目录"        End If    Next ws    MsgBox "目录与双向链接已创建完成！", vbInformationEnd Sub