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

Hello，大家好，今天跟大家分享下如何根据目录批量新建工作表和工作薄，用到的地方还是比较多的，特别是年终数据汇总的时候，话不多说，我们开始把开始之前可能很多人都分不清什么是工作表什么是工作薄，那么如何区分呢，简单来说工作薄：就是一个我们建立的Excel文件工作表：是工作薄中的一个表格这么说大家应该都了解把一、批量新建工作表1.我们根据目录插入数据透视表，然后将目录的名称拖动到筛选字段，如下动图2

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

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