Hello,大家好,今天跟大家分享下如何根据目录批量新建工作表和工作薄,用到的地方还是比较多的,特别是年终数据汇总的时候,话不多说,我们开始把

开始之前可能很多人都分不清什么是工作表什么是工作薄,那么如何区分呢,简单来说

工作薄:就是一个我们建立的Excel文件

工作表:是工作薄中的一个表格

这么说大家应该都了解把

一、 批量新建工作表

1. 我们根据目录插入数据透视表,然后将目录的名称拖动到筛选字段,如下动图

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

2. 然后我们在数据透视表名称中找到选项点击他,然后选择显示报表筛选页,然后点击确定,数据透视表就会批量新建工作表,如下动图

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

这么样批量新建工作表是不是非常简单,这个方法可以说是最简单快捷的根据目录建立工作表的方法了

二、 批量新建工作薄

根据目录批量新建工作薄,我们需要用到vba

点击开发工具,然后点击visual basic进入vba的编辑窗口,然后我们插入一个模块,将代码复制进去,如下动图

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

代码如下

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

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

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

我是Excel从零到一,你们的关注转发和点赞是对我最大的肯定

,