工作中,我們經常遇到這樣的問題,比如:如何將一個工作表按類別快速拆分成多個工作表?如何將一個工作簿的多個工作表快速拆分另存為多個工作簿?下面就用案例來說明如何解決這兩個問題。
第1個問題:有關工作表快速拆分的問題。案例:將員工花名冊按部門拆分成多個工作表。
批量拆分工作表的方法:數據透視表
1、創建數據透視表,首先按將普通的表格(員工基本情況表)轉換成數據透視表。
具體方法:【插入】→【數據透視表】→在數據透視表欄位中將部門拖選到篩選區域,勾選(或拖選)其他欄位到行(Excel2016在勾選日期欄位時會自動添加【年】和【季度】欄位,如果不需要,您可以將前面的√取消選擇)。
2、調整數據透視表格式。
默認條件下創建的透視表看起來不符合我們的要求,需要進行一些調整,讓數據透視表更接近我們員工花名冊的格式。
具體方法:點擊數據透視表任何位置→【數據透視表工具】→【設計】→【分類匯總】不顯示分類匯總→【總計】對行和列禁用→【報表布局】以表格形式顯示。
友情提醒:
① 有時數據透視表會自動將日期變成月份格式,我們只要右擊滑鼠,選擇【取消組合】就可以顯示正常的日期了。
②有時日期會顯示成####,這是因為字符寬度超出了列寬,我們只要把列寬調大就可以了。快速調整列寬適應單元格字符長度的快捷方法是選中要調整的列,將滑鼠指針放到列號與列號之間,當指針變成十字後雙擊滑鼠左鍵即可。
③有時身份證會顯示不對,我們只要設置單元格格式為自定義格式「0」即可。
3、按部門拆分工作表
具體方法:【數據透視表工具】→【分析】→【選項】→【顯示報表篩選頁】→【部門】→【確定】。動畫演示如下:
4、規範工作表格式。前面已將員工基本情況表數據源已按部門拆分成7個工作表,為了下一步工作表拆分,我們先將工作表格式進行規範。
具體方法:全選工作表→右鍵【複製】→【粘貼成值】→刪除第1和第2行(數據透視表不粘貼成值不能刪除第1和第2行,調整日期格式和身份證格式。動畫演示如下:
第2個問題:將一個工作簿的多個工作表快速拆分另存為多個工作簿。案例,將我們剛剛用數據透視表按部門拆分的工作表批量另存為多個工作簿。
1、導入模塊文件。
具體方法:按快捷鍵Alt+F11,打開工程窗口→【導入文件】→選擇模塊文件(.bas)→【打開】→關閉VBA 編輯器。
2、另存為工作簿。
①選中需要另存的工作表。選擇連續的工作表可以按shift鍵選擇第一個工作表,再選擇最後一個工作表,選擇不連續的工作表可以按住ctrl鍵點選工作表。
②【開發工具】→【宏】→選擇「拆分工作表」宏→執行。
完成上述操作後,您就可以在當前工作表所在路徑的文件夾中找到一個名為【拆分好的工作表】的文件夾,被另存的工作簿就存在這個文件夾裡,工作簿名稱默認為工作表的名稱。
如果覺得好用,請關注、點讚、評論、轉發,你的支持是我堅持的動力,更多的EXCEL技能,大家可以關注「EXCEL學習微課堂」。如需批量拆分工作表到工作簿VBA代碼文件,請關注、轉發後私信聯繫我。