30秒学会制作目录、拆分工作表，就这么简单！

文章预览

点击 👆 Excel不加班 ，关注星标 ★ 不迷路 6/7的考试题目，就剩下生成目录、将工作表转换成工作簿2个问题。 1. 生成目录 最简单的方法还是借助技巧。 用微信截图Alt+A，然后提取全部文字。 选择全部文字，复制到Excel，工作表名称就提取出来了。 如果需要超链接到分表，在隔壁列设置公式即可。 =HYPERLINK("#" & "!a1","打开") 还可以借助VBA。在最前面插入一个工作表，命名为目录。点开发工具，VB，插入模块，将代码粘贴进去，运行。 Sub 目录() Dim i As Integer For i = 1 To Sheets.Count '将表格的名称提取到a列 Range("a" & i) = Sheets(i).Name ' 创建超链接 Range( "a" & i).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= "" , SubAddress:= _ "'" & Sheets(i).Name & "'!a1" , TextToDisplay:=Sheets(i).Name Next End Sub 2. ………………………………