写在前面:
如何按指定名称批量建立工作表？如果你的Excel基础技巧很扎实的话，你可能会立刻想到数据透视表 ，可以完成批量建立工作表。
数据透视表的做法是使用数据透视表的分页帅选状态完成的。
但是如果现在需要我们用ExcelVBA解决这个问题，你会吗？
所以我们今天分享如何批量建立指定名字的工作表，其实VBA代码写起来很简单。
增加工作表的VBA关键代码是Worksheets.Add，这个代码才是主要的实现功能者。
话不多说， 如下图所示，A列是需要建立工作表的名称。
我们先来看看动画实现的效果：
附上Excel VBA代码，您复制到VBE窗口的模组即可使用。
Sub NewSht()
Dim Sht As Worksheet, Rng As Range
Dim Sn, t$
Set Rng = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
'将工作表名称所在的单元格区域赋值给变量Rng，单元格A1是标题，不读入
On Error Resume Next
'当代码出错时继续运行
For Each Sn In Rng
'遍历Rng(工作表名称集合）
t = Sn
Set Sht = Sheets(t)
'当工作簿不存在工作表Sheets(t)时，这句代码会出错，然后……
If Err Then
'如果代码出错，说明不存在工作表Sheets(t)，则新建工作表
Worksheets.Add , Sheets(Sheets.Count)
'新建一个工作表，位置放在所有已存在工作表的后面
ActiveSheet.Name = t
'新建的工作表必然是活动工作表，为之命名
Err.Clear
'清除错误状态
End If
Next
Rng.Parent.Activate
'重新激活名称数据所在的工作表
End Sub
该代码是根据当前工作表A列的值批量自动建立工作表，是不是非常的简单。
写在结尾：
我们学习在于点滴积累之间，循序慢进，选对了方式，水滴石穿，相反如果没有好的方式，会事半功倍。
希望以上对你有所帮助，谢谢支持！
PS:学习的苦难需要我们主动面对,生活的苦难你躺着它自己主动就过来啦!与君共勉之!!!
以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！
唯有不断学习，才能不被淘汰！
Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？
