亿兆体育

6/7的考试题目，就剩下生成目录、将工作表转换成工作簿2个问题。

1.生成目录

最简单的方法还是借助技巧。

图片

选择全部文字，复制到Excel，工作表名称就提取出来了。

图片

如果需要超链接到分表，在隔壁列设置公式即可。=HYPERLINK("#"&A2&"!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                    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）

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