又一个批量：批量新建

来源：微信公众号@表妹的EXCEL

关于批量的话题，表妹之前已经发布过好几篇推送了，例如：推送39--批量修改文件名、推送75--批量创建文件夹、推送104--批量生成表格数据、推送109--批量标记。今天表妹要为小伙伴们介绍一个新的批量功能：批量新建，有了它，小伙伴们工作中的新建问题就可以省时省力，轻松搞定了，想要准时下班的你，快来一起看看吧~~

~~~~~~批量新建的分割线~~~~~~

既然EXCEL有工作表和工作薄之分，那么批量新建自然也有新建工作表和新建工作薄之分。

批量新建工作表

                                                           【工作表名称】

------------------------------------

批量新建方法

【说明】选中工作表名称数据--插入--数据透视表--创建透视表--将名称字段放入筛选器--数据透视表选项--显示报表筛选页--确定

---

批量新建工作薄

                                                        【工作薄名称】

------------------------------------

批量新建方法

【说明】开发工具--Visual Basic--在工作薄名称Sheet页（Sheet1）中复制粘贴代码--运行代码

代码如下：

Sub 批量新建工作簿()

Application.ScreenUpdating = False

Dim arr, path

path = ThisWorkbook.Path & "\"

arr = Sheet1.Range("A2:A11")

For i = 1 To UBound(arr)

Set wb = Workbooks.Add

ActiveWorkbook.SaveAs path & arr(i, 1), True

ActiveWorkbook.Close

Next i

Application.ScreenUpdating = True

End Sub

替换参数解释:

A2:A11：工作薄名称单元格区域

怎么样？这个两个批量新建的方法是不是又帮助小伙伴们节省了不少办公时间呢？省时省力、事半功倍是我们学习EXCEL的最终目的，勤奋好学的你，赶快自己动手试试吧~~

关注微信公众号“表妹的EXCEL”，每周一、三、五获取原创分享教程。加入“表妹的EXCELQQ群（345387282）”，和勤奋好学的小伙伴们一起快乐地学习EXCEL吧！