批量新建excel工作表以及工作薄(含程序)

批量新建excel工作表以及工作薄，再也不用一个一个的新建了

一、批量新建工作表

批量新建工作表，我们可以使用数据透视表来完成，首先我们将想要新建的工作表名称（含标题）都放在一列中，然后我们点击其中的一个数据插入数据透视表，然后我们将这个字段放在页区域（筛选器内），紧接着点击数据透视表选项，选择显示报表筛选页然后点击确定，这样的话我们就将所有的名字名字都新建了一个工作表，如下动图

打开百度APP，查看更多高清图片

二、批量新建工作薄

首先我们将想要新建工作薄的名称直接粘贴在A列中，需要注意的是在这里是不需要表头的，然后我们打开”开发工具”下接菜单，点击（ALT+F11）打开visual basic 编辑器，然后选择”插入”-模块，将如下代码粘贴进去，然后点击运行即可，在这里我们是将新建的excel存放在D盘的根目录下

Sub xj()

Dim i

Dim s

For i = 1 To WorksheetFunction.CountA([a:a])

s = Cells(i, 1)

ActiveWorkbook.SaveAs "D:" & s & ".xlsx"

Next

End Sub