在之前的一篇文章中，分享过用数据透视表的方法批量新建工作表。
/p/115191339
本次将用VBA的方式快速新建多张工作表并命名，基于上篇文章中对插入工作表和计算工作表数的分析。
/p/335006699
一、先来看一下如何在VBA中给工作表命名，用到的一个属性类型的动作就是Name。
1. 打开Visual Basic，添加一个新的模块和过程，称之为“命名工作表”。
Sub 命名工作表()End Sub
2. 添加命名工作表的代码，这里比如要修改Sheet1的名字为“表1”。
Sub 命名工作表()Sheet1.Name = "表1"End Sub
3. 执行以上代码后，在Excel中可以看到当前工作表的名称已经改变了。
二、新增多张工作表并为其命名
1. 打开Visual Basic，添加一个新的模块和过程，称之为“新建工作表”。
Sub 新建工作表()End Sub
2. 如之前的案例，创建1至12月共12张工作表。这里在过程中添加一个for循环，让新增工作表的执行动作重复12次，即要新建12张工作表。
Sub 新建工作表()Dim i As IntegerFor i = 1 To 12NextEnd Sub
3. 写入新建工作表的代码。
Sub 新建工作表()Dim i As IntegerFor i = 1 To 12Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "" & i & "月"NextEnd Sub
4. 分析一下带Sheets的这一段代码。
1) Sheets.Add after:=Sheets(Sheets.Count)：每次在新增工作表时都在最后一张工作表的后面执行。
2) Sheets(Sheets.Count).Name = “”& i & “月”：
这里的Sheets.Count返回的值和上一行代码中的不一样，上一行中返回的值是当前工作表总数，而这行返回的是新增工作表后的工作表总数，在此例中即为上一行的Sheets.Count+1；.Name后面用“=”符号赋值，然后命名为如“1月”、“2月”等。
5. 执行以上代码后，即可在Excel文件中新增12张工作表。
相比之前用数据透视表的方法，VBA通过几行代码即可快速新建工作表，效率提高了很多。
参考视频：
知乎视频
