excel表格如何创建多个工作表内容（excel表格大神秘籍之批量新建工作表和工作薄）

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

最后我们来运行程序看一下效果。如下动图