發布時間:2024-01-24閱讀(16)
Hello,大家好,有粉絲問到關于Excel拆分的問題,今天跟大家分享下解決方法,拆分Excel一般分為2種情況
1.將表格根據首行字段中的某一個字段拆分為多個sheet
2.根據sheet名稱,將1個Excel文件拆分為多個Excel文件
它們的操作與都非常的簡單,點點鼠標即可輕松搞定,下面就讓我們來學下吧
一、拆分為多個sheet將1個表格拆分為多個sheet,最簡單的方法就是利用數據透視表,假設在這里我們想要按照省份來拆分表格
1.創建透視表
首先我們點擊表格中的任何一個單元格,然后在新工作表中插入一個數據透視表,隨后在右側的字段列表中按照順序勾選字段,字段勾選完畢后點擊【設計】將【分類匯總】設置為不顯示,【總計】設置為對行和列禁用,【報表布局】設置為以表格的形式顯示與重復所有標簽,這樣的話就會得到一個與數據源一模一樣的表格

2.拆分透視表
在這里我們想要根據省份這個字段來拆分數據,所以在右側的字段列表中將【省份】這個字段放在篩選區域,隨后點擊【數據透視表設計】在最左側找到【選項】然后點擊【顯示報表篩選頁】然后點擊確定,這樣的話就會根據省份批量的新建sheet

3.修改拆分表
拆分之后的表格它是數據透視表,表頭中會帶有【求和項:】你如果不影響的話,這一步就不用做了,如果覺得影響比較大,我們可以將表格中的【求和項:】替換掉。
首先選擇第一個sheet名稱,然后按住shift鍵再選擇最后一個sheet名稱,這樣的話就會批量選中需要設置的表格,我們在左上角復制整個表格,然后把它粘貼為數值,刪除前2行數據,然后Ctrl H調出替換,替換為設置為求和項:然后點擊全部替換這樣的話就會將表頭中的求和項:刪除掉,至此就拆分完畢了

想要把1個Excel拆分為多個Excel文件,最簡單的方法就是利用vba代碼,首先我們復制下面這一段代碼
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
然后點擊【開發工具】點擊【visual basic】隨后在跳出的界面中點擊【插入】選擇【模塊】然后直接粘貼代碼,點擊上方的小三角直接運行代碼,等待一段時間,拆分完畢后會跳出一個【工作薄拆分完畢】的提示,直接點擊確定即可,拆分的Excel文件的保存路徑與這個打開的Excel文件路徑是一致的

以上就是今天分享的全部內容,怎么樣?你學會了嗎?
我是Excel從零到一,關注我,持續分享更多Excel技巧
歡迎分享轉載→http://www.avcorse.com/read-217307.html
下一篇:紅娘是哪一部作品中的人物
Copyright ? 2024 有趣生活 All Rights Reserve吉ICP備19000289號-5 TXT地圖HTML地圖XML地圖