這個需求還是很常見的，是以我們今天來一起學習一下
看一下需求，按地區拆分，一個區域一個表(Sheet)
文末補充如何拆分成獨立的檔案
操作教程
1、建立透視表
> 輔助地區列，粘貼到G列，修改标題為拆分
> 資料點選資料區域的任意位置(連續區域)
> 點選插入-資料透視表
> 選擇插入到現在的工作表，選擇任意空白單元格，确定
2、正确的把“蘿蔔”入坑！
> 拆分字段，拖放到篩選區域
> 其他字段都放行區域(注意不要放到值區域)，否則會彙總！
3、調整布局，拆分到表
> 點選透視表的任意區域，出現 設計頁籤，點選
> 透視表布局，以表格形式顯示-重複所有項目标簽(2007版本無此項)
> 分類彙總-不顯示分類彙總
> 右擊透視表，删除總計，取消日期分組
> 點選分析-選項-顯示報表篩選頁，确定
(此步會出現多張新表，對應的就是所有區域的明細)
4、調整結果布局，完美收工
拆分出來的表，還帶有他透視表格式，我們要做一下調整
> 點選拆分後的第一個工作表，按住Shift,點選最後一個(全部選中)
> 點選右上角，三角，選擇工作表區域，複制，選擇性粘貼-數值
> 選中前兩行，右擊删除
> 調整日期格式，選擇A列，點選開始-選擇短日期格式
完美收工
彩蛋-如何拆分成獨立的檔案
代碼：
'功能：表拆分成獨立的檔案'作者；EXCEL辦公實戰-小易'日期：2020-5-1Sub ShtToWorkbook() Dim sht As Worksheet Application.ScreenUpdating = False For Each sht In ThisWorkbook.Sheets sht.Copy With ActiveWorkbook .SaveAs ThisWorkbook.Path & "\" & sht.Name, _ FileFormat:=XlFileFormat.xlOpenXMLWorkbook .Close True End With Next Application.ScreenUpdating = True MsgBox "拆分完成"End Sub
如何使用代碼：番外篇-EXCEL如何使用宏(VBA)
今天就到這裡，五一快樂
新朋友，關注小編，下次不迷路