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

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

 拆分Excel，能夠分爲3種層次：拆分excel單元格；拆分紅多個excel工做表；拆分紅多個excel文件 其中，第1種拆分是沒法完成的，由於單元格是excel中的最小單位。下面重點分享後2種拆分方法。 一、Excel表格拆分紅多個excel文件 庫表，包含N個客戶的出庫信息。

現須要根據A列的客戶名稱拆分紅N個表，有多少客戶拆分紅多少表。遇到這樣的問題，有多少同窗還在插入表 - 複製-粘貼？ 其實，完成這個任務，再多客戶也只須要最多1分鐘。 第一步：建立數據透視表。按ctrl+a全選整個數據表，插入 - 數據透視表。爲數據透視表添加字段，除客戶名稱外，其餘的全添加到行標籤裏。

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

 

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

第四步：刪除數據透視表格式。若是須要把數據透視表格式刪除，全選取表格複製 - 粘貼爲數值。最後刪除前幾行。

 

二、工做表拆分紅多個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