1. 首頁 > 云知道 > >

excel怎么將一張工作表拆分成多個工作表格

云知道Excel

案例：如圖所示，數據需要按照銷售地分成多個不同的sheet表 。

excel怎么將一張工作表拆分成多個工作表格


【excel怎么將一張工作表拆分成多個工作表格】方法1： 數據透視表拆分法
Step1：單擊數據區域任一單元格——【插入】——【數據透視表】，單擊確定
excel怎么將一張工作表拆分成多個工作表格


Step2：因為是按【銷售地】分成多個不同的表，所以把【銷售地】字段拖到 篩選區域；其他字段統一拖到行區域 。
excel怎么將一張工作表拆分成多個工作表格


Step3： 調整透視表區域的布局為常見表格樣式 。
① 單擊【報表布局】——【以表格形式顯示】；
② 單擊【報表布局】——【重復所有標簽】；
③ 單擊【分類匯總】——【不顯示分類匯總】
excel怎么將一張工作表拆分成多個工作表格


Step4：拆分工作簿為多個工作表 。經過了前期的準備，單擊數據區域任一單元格——【分析】——【選項】——【顯示報表篩選頁】，單擊確定 。
可以發現多出了很多sheet表，而且表格是以“銷售地”命名的，兼職太方便了耶，工作表都不需要創新命名了 。
excel怎么將一張工作表拆分成多個工作表格


方法2： VBA方法
① 按下【Alt+F11】打開VBA窗口

② 插入模塊，輸入代碼
excel怎么將一張工作表拆分成多個工作表格


Sub 拆分工作簿為多個sheet()
Set d = CreateObject("scripting.dictionary")
With Worksheets(1)
rrow = .Cells(Rows.Count, "a").End(3).Row
For i = 2 To rrow '從第2行開始拆分
strr = .Range("B" & i).Value '拆分B列內容
If Not d.exists(strr) Then
d.Add strr, .Range("a" & i).Resize(1, 6)
Else
Set d.Item(strr) = Union(d.Item(strr), .Range("a" & i).Resize(1, 6))
End If
Next
k = d.keys
i = d.items
For a = 0 To d.Count - 1
Worksheets.Add.Name = k(a)
i(a).Copy Worksheets(k(a)).Range("a2")
Next
End With
End Sub
③ 運行代碼 。單擊 三角形 圖標，即可拆分工作簿為多個sheet工作表 。
如下圖所示，可以發現sheet表格以銷售地名，進行了命名 。
excel怎么將一張工作表拆分成多個工作表格


方法3： 插件法- 方方格子
簡介：方方格子是一款非常好用的軟件，安裝后可以試用30天 。30天到期后，基礎功能還可以使用，但是高端功能（比如拆分工作表等）需要繳費才可以使用 。

①.按關鍵字進行拆分
如下圖，按水果名進行拆分，相同的水果名放在同一個表中 。
excel怎么將一張工作表拆分成多個工作表格


② .按每N行拆分
excel怎么將一張工作表拆分成多個工作表格



excel怎么將一張工作表拆分成多個工作表格


一個工作簿拆分多個工作表方法有3種：
① 透視表方法
② VBA方法
③ 插件法
各位親愛的讀者，你學會了嗎？


雷哥：自媒體【雷哥office】創始人，《競爭力：玩轉職場Excel，從此不加班》作者，微軟Excel專家認證，office培訓師，職場老司機，分享職場經驗 / 辦公技能 / 提高職場效率！



小藍條有這個功能，操作簡單，你可以嘗試一下~

    推薦閱讀