關(guān)于批量的話題，表妹之前已經(jīng)發(fā)布過好幾篇推送了，例如：推送39--批量修改文件名、推送75--批量創(chuàng)建文件夾、推送104--批量生成表格數(shù)據(jù)、推送109--批量標記。今天表妹要為小伙伴們介紹一個新的批量功能：批量新建，有了它，小伙伴們工作中的新建問題就可以省時省力，輕松搞定了，想要準時下班的你，快來一起看看吧~~
~~~~~~批量新建的分割線~~~~~~
既然EXCEL有工作表和工作薄之分，那么批量新建自然也有新建工作表和新建工作薄之分。
批量新建工作表
?????????????????????????????????????????????????????????? 【工作表名稱】
批量新建方法
【說明】選中工作表名稱數(shù)據(jù)--插入--數(shù)據(jù)透視表--創(chuàng)建透視表--將名稱字段放入篩選器--數(shù)據(jù)透視表選項--顯示報表篩選頁--確定
批量新建工作薄
??????????????????????????????????????????????????????? 【工作薄名稱】
批量新建方法
【說明】開發(fā)工具--Visual Basic--在工作薄名稱Sheet頁（Sheet1）中復(fù)制粘貼代碼--運行代碼
代碼如下：
Sub 批量新建工作簿()
Application.ScreenUpdating = False
Dim arr, path
path = ThisWorkbook.Path & "\"
arr = Sheet1.Range("A2:A11")
For i = 1 To UBound(arr)
Set wb = Workbooks.Add
ActiveWorkbook.SaveAs path & arr(i, 1), True
ActiveWorkbook.Close
Next i
Application.ScreenUpdating = True
End Sub
替換參數(shù)解釋:
A2:A11：工作薄名稱單元格區(qū)域
怎么樣？這個兩個批量新建的方法是不是又幫助小伙伴們節(jié)省了不少辦公時間呢？省時省力、事半功倍是我們學習EXCEL的最終目的，勤奮好學的你，趕快自己動手試試吧~~
關(guān)注微信公眾號“表妹的EXCEL”，每周一、三、五獲取原創(chuàng)分享教程。加入“表妹的EXCELQQ群（345387282）”，和勤奮好學的小伙伴們一起快樂地學習EXCEL吧！
