|
一、拆分為多個sheet 將1個表格拆分為多個sheet，最簡單的方法就是利用數(shù)據(jù)透視表，假設(shè)在這里我們想要按照省份來拆分表格 1.創(chuàng)建透視表 首先我們點(diǎn)擊表格中的任何一個單元格，然后在新工作表中插入一個數(shù)據(jù)透視表，隨后在右側(cè)的字段列表中按照順序勾選字段，字段勾選完畢后點(diǎn)擊【設(shè)計】將【分類匯總】設(shè)置為不顯示，【總計】設(shè)置為對行和列禁用，【報表布局】設(shè)置為以表格的形式顯示與重復(fù)所有標(biāo)簽，這樣的話就會得到一個與數(shù)據(jù)源一模一樣的表格    二、拆分為多個Excel文件 Sub 拆分工作薄() Dim xpath As String xpath = ActiveWorkbook.Path Dim sht As Worksheet For Each sht In ActiveWorkbook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=xpath & '\' & sht.Name & '.xlsx' ActiveWorkbook.Close Next MsgBox '工作薄拆分完畢！'End Sub |
|
|
