非常牛逼的技能，瞬间生成N个工作表！
学员的问题，要一次性生成1号-31号的工作表，有没有快捷的方法？
这种常用的有2种方法，跟卢子一起来看看。
1.VBA
会VBA，简直是无敌的存在，想要什么功能，都可以通过写代码来实现。要完成这种，简直就是小菜一碟。
点下按钮，1秒钟就全部生成。
源代码：
Sub 生成工作表()
Dim i%
For i = 1 To 31
Sheets.Add After:=ActiveSheet
Sheets(Sheets.Count).Name = i & "号"
Next
End Sub
以上，是规律性非常强的。
如果是没规律的，比如卢子、路人、张三等等这些就得用其他办法。将所有工作表名称罗列在A列。
用VBA也很简单，代码略作修改就行。
新代码：
Sub 生成工作表()
Dim i%
For i = 2 To Sheets(1).Range("a6000").End(xlUp).Row
Sheets.Add After:=ActiveSheet
Sheets(Sheets.Count).Name = Sheets(1).Cells(i, 1)
Next
End Sub
2.透视表
透视表不管工作表名称有没规律，都必须罗列出来放单元格里面。
插入透视表，将字段拉到筛选区域。
点设计，选项，显示报表筛选页，确定，就生成了多个工作表。
按住Shift键，选中第一个跟最后一个生成的工作表，将里面的透视表删除。
这个方法，也可以拆分工作表，如果你最近有看文章，应该有印象。
平常你是如何生成这么多工作表，并重命名的？
欢迎在评论区留下你看文章时的思考，及时输出有助于加深记忆和理解，还能和跟你一样也喜欢这篇文章的读者相遇。
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）