6/7的履行题目，就剩下生成目次、将职责表疗养成职责簿2个问题。

1.生成目次

最浅近的步调依然借助手艺。

图片

招揽一起笔墨，复制到Excel，职责表称呼就索求出来了。

图片

淌若需要超畅达到分表，在隔邻列缔造公式即可。=HYPERLINK("#"&A2&"!a1"，"掀开")

图片

还不错借助VBA。在最前边插入一个职责表泷泽萝拉torrent，定名为目次。点开拓器具，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                    NextEnd Sub

真实迷奸女高中生 "Microsoft YaHei"， Arial， sans-serif;letter-spacing: 0.544px;text-wrap: wrap;background-color: rgb(255， 255， 255);text-align: left;margin-bottom: 0px;margin-top: 0px;line-height: 1.6em;">2.将职责表疗养成职责簿

使用底下的代码就不错疗养。

Sub 拆单干作表()    Dim b As Worksheet    Excel.Application.ScreenUpdating = False    For Each b In Sheets        b.Copy        Excel.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & b.Name & ".xlsx"        Excel.ActiveWorkbook.Close    Next    Excel.Application.ScreenUpdating = TrueEnd Sub

VBA代码只有学会怎样初始就行，没必要太长远去参谋。

熟女控

陪你学Excel，一世够不够？

一次报名成为VIP会员，所有课程恒久免费学，恒久答疑，仅需 1500 元，待你加入。

报名后加卢子微信chenxilu2019，发送报名截图邀请进群。

保举：不骗你！VBA初学其实很浅近

上篇：最佳用的统计神器，拖、拉几下全解决！

图片

作家：卢子，清华畅销书作家泷泽萝拉torrent，《Excel界限手册 早作念完，不加班》系列丛书创举东谈主，个东谈主公众号：Excel不加班（ID：Excelbujiaban）

本站仅提供存储做事，所有本体均由用户发布，如发现存害或侵权本体，请点击举报。