6/7的熟谙题目，就剩下生成目次、将责任表蜕变成责任簿2个问题。

1.生成目次

最浅显的技艺依然借助手段。

图片

经受一齐笔墨，复制到Excel，责任表称呼就索要出来了。

图片

要是需要超贯穿到分表，在隔邻列树立公式即可。=HYPERLINK("#"&A2&"!a1","翻开")

图片

还不错借助VB成人卡通漫画A。在最前边插入一个责任表，定名为目次。点开荒器具，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

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初学其实很浅显

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

图片

作家：卢子，清华畅销书作家成人卡通漫画，《Excel恶果手册 早作念完，不加班》系列丛书首创东说念主，个东说念主公众号：Excel不加班（ID：Excelbujiaban）

本站仅提供存储管事，扫数实质均由用户发布，如发现存害或侵权实质，请点击举报。