透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

前面我們已分享了9個關於數據透視表的課程,介紹了數據透視表的佈局、字段組合、多維度計算、自定義格式、排序、篩選、條件格式和切片器等功能,今天我們分享用數據透視表實現按條件拆分工作表的方法,同時分享一段將工作表批量另存為多個工作簿VBA的代碼,需要的代碼的可關注評論轉發後私信聯繫我。

一、案例數據源及要求達到的效果

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

要求1:根據所屬區域將銷售表拆分成多個表,效果如下圖:

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

要求2:將按要求1拆分的工作表拆分成不同的工作簿,效果如下圖:

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

二、操作步驟

步驟1:創建數據透視表

將光標放在數據源表的任一位置,點【插入】→【數據透視表】→選擇將數據透視表放在新工作表→

將【所屬區域】拖放在篩選字段,其他的字段全部拖放到行標字段。

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

步驟2:調整格式

調整報表佈局:【設計】→【報表佈局】→選擇【以表格形式顯示】和【重複所有項目標籤】

取消分類彙總:【設計】→【分類彙總】→選擇【不顯示分類彙總】

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

步驟3:按所屬區域拆分工作表

將光標放在數據透視表的任一單元格,點【分析】→ 【選項】→ 【顯示報表篩選頁】→在彈出的窗口中點確定,拆分完成。

步驟4:刪除數據透視表格式

選擇所有需要刪除數據透視表格式的表格(按住SHIFT,點選第1個和最後1個表格)→點擊A1單元格的左上角的三角形符號選擇所有表格內容→複製→粘貼為數值→刪除前面2行。

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

步驟5: 導入VBA模塊文件。

按快捷鍵Alt+F11,打開工程窗口→右鍵【導入文件】→選擇模塊文件(工作表另存為工作簿.bas)→【打開】→關閉VBA 編輯器。

步驟6:將工作表拆分到工作簿

選中需要另存為工作簿的工作表(選擇連續的工作表可以按shift鍵選擇第一個工作表,再選擇最後一個工作表,選擇不連續的工作表可以按住ctrl鍵點選工作表)→【開發工具】→【宏】→選擇“拆分工作表”宏→執行。

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

完成上述操作後,您就可以在當前工作表所在路徑的文件夾中找到一個名為【拆分好的工作表】的文件夾,拆分好的工作簿就存在這個文件夾裡,工作簿名稱默認為工作表的名稱。

透視表+VBA,1分鐘搞定按條件拆分工作表,工作表拆分到工作簿!

與本課程內容相關的往期課程有:

我是EXCEL學習微課堂,頭條號優質教育領域創作者,分享EXCEL學習的小技巧,小經驗。如分享的內容對您有用,歡迎點贊、收藏、評論、轉發和讚賞!更多的EXCEL技能,可以關注今日頭條“EXCEL學習微課堂”。


分享到:


相關文章: