這個需求還是很常見的，所以我們今天來一起學(xué)習(xí)一下

看一下需求，按地區(qū)拆分，一個區(qū)域一個表（Sheet）

文末補充如何拆分成獨立的文件

操作教程

1、創(chuàng)建透視表

>?輔助地區(qū)列，粘貼到G列，修改標題為拆分

>?數(shù)據(jù)點擊數(shù)據(jù)區(qū)域的任意位置（連續(xù)區(qū)域）

> 點擊插入-數(shù)據(jù)透視表

>?選擇插入到現(xiàn)在的工作表，選擇任意空白單元格，確定

2、正確的把“蘿卜”入坑！

>?拆分字段，拖放到篩選區(qū)域

> 其他字段都放行區(qū)域（注意不要放到值區(qū)域），否則會匯總！

3、調(diào)整布局，拆分到表

>?點擊透視表的任意區(qū)域，出現(xiàn) 設(shè)計選項卡，點擊

>?透視表布局，以表格形式顯示-重復(fù)所有項目標簽（2007版本無此項）

>?分類匯總-不顯示分類匯總

>?右擊透視表，刪除總計，取消日期分組

> 點擊分析-選項-顯示報表篩選頁，確定

（此步會出現(xiàn)多張新表，對應(yīng)的就是所有區(qū)域的明細）

4、調(diào)整結(jié)果布局，完美收工

拆分出來的表，還帶有他透視表格式，我們要做一下調(diào)整

> 點擊拆分后的第一個工作表，按住Shift,點擊最后一個（全部選中）

>?點擊右上角，三角，選擇工作表區(qū)域，復(fù)制，選擇性粘貼-數(shù)值

>?選中前兩行，右擊刪除

> 調(diào)整日期格式，選擇A列，點擊開始-選擇短日期格式

彩蛋-如何拆分成獨立的文件

代碼：

'功能：表拆分成獨立的文件

'作者；EXCEL辦公實戰(zhàn)-小易

'日期：2020-5-1

Sub 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）

今天就到這里，五一快樂

新朋友，關(guān)注小編，下次不迷路