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

最后我們來運行程序看一下效果。如下動圖