＂打开＂)图片还可以借助VBA
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山西天铸实业有限公司 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
联系我们 -apple-system， BlinkMacSystemFont， "Helvetica Neue"， "PingFang SC"， "Hiragino Sans GB"， "Microsoft YaHei UI"， "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;">VBA代码只要学会如何运行就行，没必要太深入去研究。
陪你学Excel，一生够不够？
一次报名成为VIP会员，所有课程永久免费学，永久答疑，仅需 1500 元，待你加入。
报名后加卢子微信chenxilu2019，发送报名截图邀请进群。
推荐：不骗你！VBA入门其实很简单
上篇：最好用的统计神器，拖、拉几下全搞定！
图片
作者：卢子人才招聘，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。