導(dǎo)讀Hello，大家好，今天跟大家分享下如何根據(jù)目錄批量新建工作表和工作薄，用到的地方還是比較多的，特別是年終數(shù)據(jù)匯總的時(shí)候，話不多說，我們開始把開始之前可能很....

Hello，大家好，今天跟大家分享下如何根據(jù)目錄批量新建工作表和工作薄，用到的地方還是比較多的，特別是年終數(shù)據(jù)匯總的時(shí)候，話不多說，我們開始把

開始之前可能很多人都分不清什么是工作表什么是工作薄，那么如何區(qū)分呢，簡(jiǎn)單來說

工作薄：就是一個(gè)我們建立的Excel文件

工作表：是工作薄中的一個(gè)表格

這么說大家應(yīng)該都了解把

一、 批量新建工作表

1. 我們根據(jù)目錄插入數(shù)據(jù)透視表，然后將目錄的名稱拖動(dòng)到篩選字段，如下動(dòng)圖

2. 然后我們?cè)跀?shù)據(jù)透視表名稱中找到選項(xiàng)點(diǎn)擊他，然后選擇顯示報(bào)表篩選頁(yè)，然后點(diǎn)擊確定，數(shù)據(jù)透視表就會(huì)批量新建工作表，如下動(dòng)圖

這么樣批量新建工作表是不是非常簡(jiǎn)單，這個(gè)方法可以說是最簡(jiǎn)單快捷的根據(jù)目錄建立工作表的方法了

二、 批量新建工作薄

根據(jù)目錄批量新建工作薄，我們需要用到vba

點(diǎn)擊開發(fā)工具，然后點(diǎn)擊visual basic進(jìn)入vba的編輯窗口，然后我們插入一個(gè)模塊，將代碼復(fù)制進(jìn)去，如下動(dòng)圖

代碼如下

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

下面來簡(jiǎn)單介紹下代碼的意思

Sub xj()

Dim i

這個(gè)個(gè)的意識(shí)是定義變量

Dim s

這個(gè)的意識(shí)是定義變量

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

這個(gè)的意思是將a賦值，它的值為1到A列的非空單元格個(gè)數(shù)，在這里我們調(diào)動(dòng)了工作表函數(shù)counta來計(jì)算a列的非空個(gè)數(shù)

s = Cells(i, 1)

這個(gè)的意思是：將s賦值為單元格的值，因?yàn)閕是變動(dòng)的它會(huì)一直向下進(jìn)行

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

這個(gè)的意思是：我們把新建的工作表工作表儲(chǔ)存在D盤并將它命名為S單元格的值和excel的后綴，如果你的Excel版本是10版本以下的需要將xlsx改為xls

Next

這個(gè)的意思是：結(jié)束循環(huán)語句

End Sub

最后我們來運(yùn)行程序看一下效果。如下動(dòng)圖

我是Excel從零到一，你們的關(guān)注轉(zhuǎn)發(fā)和點(diǎn)贊是對(duì)我最大的肯定,