Excel中的文件多了，就希望能生成一个目录，方便快速跳转，但是网上的代码参差不齐，无法很好的达到预期，所以小编刚刚先写了一个分享给大家！
▼ 动画-效果演示
▍功能说明：
点击执行代码，一键为当前Excel文件生成目录 目录自动调整格式，字体大小，自动对齐等 返回目录，在任意表中，点击名称框，选择返回目录，快速切换到目录表
'功能：一键生成目录及返回目录'作者：E精精:2023-6-23 02:26:46Sub CreateContents()Dim ws As WorksheetDim i As LongDim contentsSht As WorksheetConst cntShtName As String = "目录"On Error Resume Next'删除已存在的目录表= FalseThisWorkbook.Worksheets(cntShtName).Delete= True'在开始位置插入一张目录表Set contentsSht = ThisWorkbook.Sheets.Add( _before:=ThisWorkbook.Sheets(1))= cntShtNameWith contentsSht'添加目录:B1] = [{"序号","内容"}]For Each ws In ThisWorkbook.WorksheetsIf ws.Name <> .Name Theni = i + 1+ 1, 1).Value = i_Anchor:=.Cells(i + 1, 2), _Address:="", _SubAddress:="'" & ws.Name & "'!A1", _TextToDisplay:=ws.NameEnd IfNext ws'格式设置= xlCenter= xlLeftWith .Range("A1").CurrentRegionWith .Font= False= 12= "微软雅黑"End With= TrueEnd With'添加返回目录.Names("返回目录").DeleteName:="返回目录", _RefersToR1C1:="=目录!R1C1"End WithMsgBox "目录表已生成，请查看", vbInformationEnd Sub
最后祝大家节日快乐吧！今天就先到这里！快去试试吧！现在没有时间的同学不要忘了收藏、转发方便备查，所谓“找东西不要命，找起东西要人命”！
