【原】1個(gè)Excel文件拆分為100個(gè)，我需要2小時(shí)，同事2分鐘就搞定

Excel從零到一 2022-08-20 發(fā)布于河南

展開全文

1.將一個(gè)Sheet根據(jù)某一個(gè)字段拆分為多個(gè)Sheet

2.將一個(gè)Excel文件中的多個(gè)sheet分別拆分為單獨(dú)的Excel文件

這也是一個(gè)粉絲問到的問題，相信很多人在工作中都遇到過類似的問題，下面就讓我們來看下解決方法吧

一、拆分Sheet

針對這種情況，建議大家使用透視表來進(jìn)行表格的拆分，這個(gè)操作非常的簡單，它最大的優(yōu)點(diǎn)就是可以實(shí)現(xiàn)動(dòng)態(tài)更新，數(shù)據(jù)源如果發(fā)生更改，拆分后的表格是可以實(shí)現(xiàn)一鍵更新的

1.構(gòu)建拆分字段

所謂的拆分字段，就是我們想要根據(jù)那個(gè)字段進(jìn)行sheet拆分，下圖是一個(gè)2021年的訂單數(shù)據(jù)，現(xiàn)在我們想要根據(jù)【月份】將其拆分開，讓每一個(gè)月占據(jù)一個(gè)Sheet，這個(gè)月份就是拆分字段。表格中沒有拆分字段的話就需要構(gòu)建一個(gè)出來

2.插入透視表

拆分字段構(gòu)建完成后，我們需要按下【Ctrl+T】將普通表轉(zhuǎn)換為超級表，這樣的話更改數(shù)據(jù)源中的數(shù)據(jù)，分表才能實(shí)現(xiàn)自動(dòng)更新

轉(zhuǎn)換為超級表后，我們直接【插入】功能組，選擇【數(shù)據(jù)透視表】在跳出的界面中直接點(diǎn)擊【確定】就會(huì)新建一個(gè)透視表，在右側(cè)的字段列表中，直接按照順序勾選字段即可，如果數(shù)據(jù)源中存在日期會(huì)被自動(dòng)組合，我們只需要點(diǎn)擊鼠標(biāo)右鍵選擇【取消組合】即可

3.設(shè)置透視表顯示格式

勾選字段后，這個(gè)表格的格式是比較雜亂的，我們需要設(shè)置一下，在上方點(diǎn)擊【設(shè)計(jì)】

將【分類匯總】設(shè)置為【不顯示】

將【總計(jì)】設(shè)置為【對行和列禁用】

將【報(bào)表布局】設(shè)置為【以表格的形式顯示】及【重復(fù)所有標(biāo)簽】

這樣的話就是一個(gè)常見的表格顯示樣式了

4.拆分表格

格式設(shè)置好之后，我們在【行區(qū)域】中將【月份】這個(gè)字段放在【篩選區(qū)域】然后點(diǎn)擊【數(shù)據(jù)透視表分析】在最左側(cè)點(diǎn)擊【選項(xiàng)】然后點(diǎn)擊【顯示報(bào)表篩選頁】看到一個(gè)窗口后直接點(diǎn)擊確定，這樣的話就會(huì)快速將表格按照月份進(jìn)行拆分。，如果數(shù)據(jù)源發(fā)生改變，只需點(diǎn)擊一個(gè)表格，在鼠標(biāo)右鍵中點(diǎn)擊【刷新】就能自動(dòng)更新過來了

二、拆分Excel文件

拆分Excel文件是將1個(gè)Excel文件，根據(jù)Sheet名稱拆分為多個(gè)Excel文件。對于這種情況我們只能使用VBA代碼來實(shí)現(xiàn)了，首先需要復(fù)制下面的代碼，然后點(diǎn)擊visual basic，進(jìn)入VBA的編輯界面，然后點(diǎn)擊【插入】選擇【模塊】將代碼直接粘貼進(jìn)去，按下【F5鍵】來運(yùn)行程序，運(yùn)行完畢后會(huì)彈出【拆分完畢】的提示，文件會(huì)的存放位置與需要拆分的Excel它們的位置是一樣的，至此就拆分完畢了

Sub 拆分工作薄()Dim xpath As Stringxpath = ActiveWorkbook.PathDim sht As WorksheetFor Each sht In ActiveWorkbook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx" ActiveWorkbook.CloseNextMsgBox "拆分完畢！"End Sub