EXCEL如何按某一列拆分成多個表

首發 公眾號 EXCEL辦公實戰

這個需求還是很常見的，所以我們今天來一起學習一下

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

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

操作教程

1、創建透視表

> 輔助地區列，粘貼到G列，修改標題為拆分

> 數據點擊數據區域的任意位置（連續區域）

> 點擊插入-數據透視表

> 選擇插入到現在的工作表，選擇任意空白單元格，確定

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

> 拆分字段，拖放到篩選區域

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

3、調整佈局，拆分到表

> 點擊透視表的任意區域，出現 設計選項卡，點擊

> 透視表佈局，以表格形式顯示-重複所有項目標籤（2007版本無此項）

> 分類彙總-不顯示分類彙總

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

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

（此步會出現多張新表，對應的就是所有區域的明細）

4、調整結果佈局，完美收工

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

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

> 點擊右上角，三角，選擇工作表區域，複製，選擇性粘貼-數值

> 選中前兩行，右擊刪除

> 調整日期格式，選擇A列，點擊開始-選擇短日期格式

完美收工

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

代碼：

<code>'功能：表拆分成獨立的文件
'作者；EXCEL辦公實戰-小易
'日期：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/<code>

如何使用代碼：

番外篇-EXCEL如何使用宏（VBA）

今天就到這裡，五一快樂

Excel辦公實戰，高效辦公，每天進步一點點！

關注小編，下次精彩不迷路！

喜歡小編的文章，一定要點贊，關注，轉發

您的鼓勵是小編最大的動力！