每日Excel分享（VBA）| 根据指定名称批量新建工作表最快的两种方法，没有之一

下面是动画教程：

今天村长再来跟大家分享另一种通过VBA代码一键生成指定工作表名称的工作表的方法。下图是一些要生成的工作表名称

打开VBE编辑器新建模块并添加VBA代码，如下动画

操作方法：

按ALT F11组合键打开VBE编辑器，选中任意一个工作表名点击右键，然后选择“插入——模块”，在模块中粘贴以下代码：

Sub 批量添加工作表()

    Dim Sh As Worksheet, i As Long

    Sheets.Add After:=Sheets(Sheets.Count), Count:=Worksheets(1).Range(''A'' & Rows.Count).End(xlUp).Row - 1

    For i = 2 To Sheets.Count

        Worksheets(i).Name = Worksheets(1).Cells(i, 1).Value

    Next

End Sub

添加一个用于执行VBA代码的按钮，并指定要执行的代码

最终效果如下：

以上就是今天要分享的两种批量新建工作表的方法，其中透视表的方法相对简单易学，缺点是每个新建的工作表都会有透视表筛选页的内容，需要手动去清除，另外新建的工作表没有按照指定的名称顺序新建；而VBA的方法就比较灵活而且干净，唯一的缺点是需要一点VBA基础知识。