鲁达
大家都说小白把各种平时用的软件用偏了，正经的功能不好好用，非要走另类路线。好好的拼音输入法不用，偏用双拼这种诡异的输入法，好好的Excel，也用的不像表格了！所以本期小白科普为大家带来两种更能提高工作效率的Excel使用技巧。
应用场景
当进行大批数据统计时，就面临着在一个Excel文件中创建多个工作表（Sheet）的情况，平常我们新建一个Sheet（快捷键Shift+F11），再对新Sheet命名即可完成。如果需要新建5个Sheet，那么建表再改名没什么问题，可是如我要新建50个Sheet呢？200个呢？如果还一个一个的去操作，岂不是还没开始统计数据就已经累成狗了？这种方式我们肯定是拒绝的，接下来，小白带领大家尝试一下新办法。
操作技巧
一、利用《数据透视表》新建Sheet
打开Excel，在表格中以列的形式输入要创建的Sheet名称
以Sheet名称列创建数据透视表
在数据透视表中将字段名称拖入筛选器
操作：数据透视表-分析-选项-显示报表筛选页
新建Sheet完成
操作过程
重要：Sheet名称列一定要有标题，因为在数据透视表中必须有字段名称，如果不输入标题，那么数据透视表会默认以第一行作为字段名称，继续操作则创建的Sheet会少一个。
使用此方法方便、快捷，但是有一个弊端，就是在新建的Sheet中会有一个数据透视表筛选器，使用工作表时需要先删除数据透视表内容。
二、使用VBA编写宏命令新建Sheet
打开Excel工作簿，在表格Sheet中以列的形式输入要创建的Sheet名称
打开VBA编辑器（快捷键Alt+F11），也可以在开发工具中打开
工程窗口-插入-模块
在模块中编辑VBA代码
F5执行代码，新建Sheet完成
代码（可直接复制使用）：
Sub SheetAdd()
Dim i As Long
'定义一个长整型变量
S After:=Shee), Count:=Sheets(1).Range("A" & Rows.Count).End(xlUp).Row - 1
'在现有Sheet后新建工作表，工作表数量等于Sheet(1)表A列非空单元格行数
For i = 2 To S
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
'工作表名称设置为Sheet(1)A列单元格值
Next
MsgBox "创建工作表完成！"
End Sub
操作过程
重要：起始工作表名称要是“Sheet1”，建议工作簿中只包含一个Sheet1，如起始作表名称不是是“Sheet1”，可根据自己需要修改代码。
Sheet名称中不能包含特殊字符，否则代码执行过程中会报错。
变量i，起始值为2，则Sheet1表名不会被修改，如果起始值为1，则Sheet1表名会被修改。
如果要以日期或时间做为表名，需要在Sheet1中写好日期，代码为Sheets(i).Name = Format(Sheets(1).Cells(i, 1), "m.d")，替换上文代码中命名代码即可。
使用VBA编写的宏命令创建工作表，不会有什么遗留问题。建议大家稍作学习，即可轻松应用。
今天就这些内容，不过瘾？那去看看上期爽一下吧！
上期内容：Excel科普（十）｜分类汇总函数SUBTOTLE，必须会用
下期预告：《利用VBA实现一对多单元格个合并汇总》敬请期待……
最后，欢迎大家关注《Excel小白的技巧》头条号，专注Excel科普，比你看教程什么的靠谱多了！