一键搞定！根据总表生成多个分表，根据分表生成目录( 二 )
根据b列的内容生成分表的代码就出来了 。
Sub 生成工作表()
For i = 1 To 12
Sheets.Add After:=ActiveSheet
Sheets(i + 1).Name = Sheets(1).Range("b" & i + 1)
Next
End Sub
文章图片
现在反过来 ， 已经有了分表了 ， 要生成目录 。
如果你前面的内容已经掌握 ， 那这个问题就太简单了 ， 将代码中间的等式调换过来即可 。 单元格写在=前面 ， 工作表名称写在=后面 。
Sub 提取目录()
For i = 1 To 12
Sheets(1).Range("c" & i + 1) = Sheets(i + 1).Name
Next
End Sub
文章图片
上面的代码虽然都可以运行 ， 不过如果要写标准的 ， 还需要为i定义变量为整数 ， Dim i As Integer
。
文章图片
有了VBA以后 ， 有些事就会变得更简单 ， 比如填充10000行内容 ， 在单元格内要拉很久 。 在VBA只需加个循环就可以 ， 瞬间就搞定 。
比如现在要在A列生成1-10000的数字 。
Sub 生成数字()
Dim i As Integer
For i = 1 To 10000
Sheets(1).Range("a" & i) = i
Next
End Sub
文章图片
如果你想让工作变得智能化 ， 一键搞定工作 ， 就得用心学习VBA 。 前期学习会有点难 ， 只要坚持一段时间就会变得很轻松 。
VIP
888
元 ， 一次报名 ， 所有视频课程 ， 终生免费学 ， 提供一年在线答疑服务 。
文章图片
报名后加卢子微信chenxilu2019
， 发送报名截图邀请进群 。
推荐：一键生成目录（完善版）
上篇：只需用一招 ， 就可以学好VBA……
文章图片
发现大家学习VBA的热情不高 ， 阅读量只有平常的一半 ， 这边我再写几天VBA教程 ， 如果你还是提不起兴趣的话 ， 那就恢复成以前的学员答疑那种文章 。
文章图片
作者：卢子 ， 清华畅销书作者 ， 《Excel效率手册 早做完 ， 不加班》系列丛书创始人 ， 个人公众号：Excel不加班（ID：Excelbujiaban）
推荐阅读
- 爱宠根据地|虚张声势的超凶流浪狗，被救后秒变怂，颜值不输品种犬！
- 「新浪科技综合」电视开机广告一键关闭重大进展：各家厂商纷纷承诺新浪科技综合2020-07-20 10:58:090阅
- 阿根廷累计新冠肺炎确诊病例126765例 国内各地根据当地情况放宽隔离限制
- 同学|一定要去亚洲第一的新加坡国立大学？100％录取率完美搞定！
- 「天极网」多家彩电品牌开机广告可“一键关闭”天极网2020-07-20 07:46:590阅
- 每天一首音乐|没有一键美颜的古代女子如何美容？唐朝最讲究，甚至还要仰药
- 生肖|生肖狗的人和此生肖最配了！一生的婚姻缘，拆都拆不掉
- 罂粟|一农民在自家菜园子内种植53株罂粟，结果被拘……
- 影院复工！成都卖出全国前三张电影票
- 助太湖流域泄洪，上海今开启元荡水闸分流减压