表格拆分的兩種方式 拆分成多個excel工作表或多個excel文件

表格拆分的兩種方式 拆分成多個excel工作表或多個excel文件

 拆分Excel，可以分為3種層次：拆分excel單元格；拆分成多個excel工作表；拆分成多個excel文件 其中，第1種拆分是無法完成的，因為單元格是excel中的最小單位。下面重點分享后2種拆分方法。 1、Excel表格拆分成多個excel文件 庫表，包含N個客戶的出庫信息。

現需要根據A列的客戶名稱拆分成N個表，有多少客戶拆分成多少表。遇到這樣的問題，有多少同學還在插入表 - 復制-粘貼？ 其實，完成這個任務，再多客戶也只需要最多1分鍾。 第一步：創建數據透視表。按ctrl+a全選整個數據表，插入 - 數據透視表。為數據透視表添加字段，除客戶名稱外，其他的全添加到行標簽里。

第二步：調整格式。設置行標簽重復，取消分類匯總，隱藏+-號

 

第三步：拆分表格。數據透視表工具 - 選項 - 顯示篩選頁 -  在彈出的窗口中點確定。拆分自動完成。

第四步：刪除數據透視表格式。如果需要把數據透視表格式刪除，全選取表格復制 - 粘貼為數值。最后刪除前幾行。

 

2、工作表拆分成多個Excel文件 這種拆分就需要用VBA編寫代碼了 把當前excel文件中除第1個工作外的所有工作表，均保存為單獨的excel文件到3月文件夾中。 拆分演示（在拆分過程中會畫面會停幾秒，請耐心等待）

 

代碼：

Sub 拆分表格()  
    Dim x As Integer  
    Dim wb As Workbook  
    Application.ScreenUpdating = False  
    For x = 2 To 32    
        Sheets(x).Copy    
        Set wb = ActiveWorkbook    
        With wb     
        .SaveAs ThisWorkbook.Path & "/3月/" & Sheets(x).Name & ".xlsx"     
        .Close True    
        End With  
    Next x  
    Application.ScreenUpdating = True 
End Sub