'使用方法: ' 1、在目前的excel中,新建一个sheet,命名为“目录”或者“某人就是帅”等; ’2、快捷键alt+F11,就打开了VBA编辑界面 ’3、把这个文件中所有的内容全部复制到名为“sheet1(目录)”下,可能不是sheet1,重点是复制到名为“目录”的sheet下。 ’4、按F5执行程序。 ’ps1、office-excle下,直接执行就好了;如果是WPS-excle,记得安装一个大概8M的插件,网上下载,或者找我要。 ’ps2、EXCEL保存时,会提示是否需要保存宏模板,保存宏的话,扩展名为变成XSLM,下次启动,代码还在。如果不保存宏,下次子表格sheet增加时,还需要把这个复制进去。 Sub 生成目录() Dim wsht As Worksheet, k%, wshtname$ Columns(1).ClearContents ' Columns(2).ClearContents ' Range("a1") = "序号" '第一个单元格写入字符串 Range("b1") = "目录" '第一个单元格写入字符串 k = 1 '赋予参数初值 For Each wsht In Worksheets '找到当前工作簿的每个工作表 Cells(k + 1, 1) = k wshtname = wsht.Name If wshtname <> ActiveSheet.Name Then k = k + 1 ActiveSheet.Hyperlinks.Add anchor:=Cells(k, 2), Address:="", SubAddress:="'" & wshtname & "'!a1", TextToDisplay:=wshtname End If Next Columns("A:A").Select Selection.AutoFit Columns("B:B").Select Selection.AutoFit ActiveWindow.Split = False ActiveWindow.ScrollRow = 1 End Sub