Hello，大家好，今天跟大家分享下如何根据目录批量新建工作表和工作薄，用到的地方还是比较多的，特别是年终数据汇总的时候，话不多说，我们开始把
开始之前可能很多人都分不清什么是工作表什么是工作薄，那么如何区分呢，简单来说
工作薄：就是一个我们建立的Excel文件
工作表：是工作薄中的一个表格
这么说大家应该都了解把
一、 批量新建工作表1. 我们根据目录插入数据透视表，然后将目录的名称拖动到筛选字段，如下动图
2. 然后我们在数据透视表名称中找到选项点击他，然后选择显示报表筛选页，然后点击确定，数据透视表就会批量新建工作表，如下动图
这么样批量新建工作表是不是非常简单，这个方法可以说是最简单快捷的根据目录建立工作表的方法了
二、 批量新建工作薄根据目录批量新建工作薄，我们需要用到vba
点击开发工具，然后点击visual basic进入vba的编辑窗口，然后我们插入一个模块，将代码复制进去，如下动图
代码如下
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
下面来简单介绍下代码的意思
Sub xj()
Dim i
这个个的意识是定义变量
Dim s
这个的意识是定义变量
For i = 1 To WorksheetFunction.CountA([a:a])
这个的意思是将a赋值，它的值为1到A列的非空单元格个数，在这里我们调动了工作表函数counta来计算a列的非空个数
s = Cells(i, 1)
这个的意思是：将s赋值为单元格的值，因为i是变动的它会一直向下进行
ActiveWorkbook.SaveAs "D:" & s & ".xlsx"
这个的意思是：我们把新建的工作表工作表储存在D盘并将它命名为S单元格的值和excel的后缀，如果你的Excel版本是10版本以下的需要将xlsx改为xls
Next
这个的意思是：结束循环语句
End Sub
最后我们来运行程序看一下效果。如下动图
