前言

正如上一篇文章提到的，我們很多時候會創(chuàng)建很多個文件夾---例如說創(chuàng)建5月份每一天的文件夾（詳情請見：《快速創(chuàng)建多個文件夾》，鏈接：http://www.itdecent.cn/p/9ac1ff59fd55）。
而在實際工作中，我們還會遇到需要批量創(chuàng)建Excel工作簿的情況，這些工作簿可能除了名字不同，每一個工作簿的格式完全一致，例如老師可能會需要創(chuàng)建一班、二班、三班、四班成績單。如果每一個工作簿都在需要的時候臨時創(chuàng)建---包括命名工作簿、創(chuàng)建一模一樣的表頭、調(diào)整完全一致的格式等---這樣的工作其實可以一次性完成，避免大量重復(fù)性勞動，何樂而不為呢？

第一步：創(chuàng)建這許多個工作簿的名字

我們的第一步，首先要想好這么多工作簿的名字是什么。我們拿學(xué)生成績單來舉例，需要創(chuàng)建1班至10班的成績單，我們可以進(jìn)行如下操作：
第一，按住Ctrl，下拉拖動，生成1-10的序列
第二，雙擊單元格右下角實心十字，在次列填充“班成績單”
第三，利用公式，將前兩列拼接到一起，生成我們想要的工作簿名稱。所用的公式：CONCATENATE()

生成想要的工作簿名稱.gif

第二步：生成工作表

第一，對在第一步中生成的“工作簿名稱”列選中，進(jìn)行透視。插入選項卡-數(shù)據(jù)透視表-確定。
第二，將“工作簿名稱”放入“篩選器”
第三，分析選項卡，選項-顯示報表篩選頁-確定
隨即，我們可以看到生成多個工作表，工作表的名稱就是我們在第一步命名的“工作簿名稱”。

生成工作表.gif

第三步：選中新生成的工作表，清除這幾個表中的數(shù)據(jù)

第一，按住Shift，將所需的工作表選中
第二，快捷鍵Ctrl+A，將選中的工作表的內(nèi)容全部選中
第三，開始選項卡，“編輯”-“清除”-“全部清除”

選中工作表清除內(nèi)容.gif

隨即，這些表里面的內(nèi)容會被清除。

第四步：批量操作，添加統(tǒng)一的表頭

在1班成績單至10班成績單的工作表被選中的狀態(tài)下，添加表頭、調(diào)整格式等操作。隨后我們會發(fā)現(xiàn)，這十張工作表都被添加上了統(tǒng)一的內(nèi)容。我們這邊添加：班級、姓名、數(shù)學(xué)、語文、英語字段，并進(jìn)行加粗

批量操作添加統(tǒng)一表頭.gif

第五步：用VBA代碼將工作表拆分成獨(dú)立工作簿

第一，在工作表名稱上單擊右鍵-查看代碼-插入-模塊
第二，粘貼如下的代碼（將在D盤的temp文件夾下生成工作簿，請?zhí)崆霸贒盤創(chuàng)建temp文件夾），關(guān)閉窗口

Sub 生成獨(dú)立工作簿()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Copy
ActiveWorkbook.SaveAs "D:\temp" & ActiveSheet.Name & ".xlsx"
ThisWorkbook.Activate
Next i
End Sub

第三，開發(fā)工具-宏-選中“生成獨(dú)立工作簿”-執(zhí)行?？旖萱I：Alt+F8(有的電腦是Fn+Alt+F8)

用宏生成獨(dú)立工作簿.gif

結(jié)語

以上就是今天分享的內(nèi)容啦~
在工作中接觸的越多，越發(fā)現(xiàn)需要學(xué)習(xí)的內(nèi)容越多、可以改進(jìn)提高效率的地方越多；同時學(xué)的越多，也發(fā)現(xiàn)應(yīng)該分享的內(nèi)容越多。
我們總是在不斷的發(fā)現(xiàn)問題、解決問題、分享經(jīng)驗中不斷進(jìn)步的。
能一直往前走，變成更好的自己就很開心~
加油~