感謝邀請。今天雷哥跟大家分享下 3個Excel方法，實現(xiàn)將一張工作表拆分為多個工作表。為了大家更好地理解，雷哥通過具體的案例來跟大家分享。

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

方法1： 數(shù)據(jù)透視表拆分法

Step1：單擊數(shù)據(jù)區(qū)域任一單元格——【插入】——【數(shù)據(jù)透視表】，單擊確定

Step2：因為是按【銷售地】分成多個不同的表，所以把【銷售地】字段拖到 篩選區(qū)域；其他字段統(tǒng)一拖到行區(qū)域。

Step3： 調(diào)整透視表區(qū)域的布局為常見表格樣式。

① 單擊【報表布局】——【以表格形式顯示】；

② 單擊【報表布局】——【重復所有標簽】；

③ 單擊【分類匯總】——【不顯示分類匯總】

Step4：拆分工作簿為多個工作表。經(jīng)過了前期的準備，單擊數(shù)據(jù)區(qū)域任一單元格——【分析】——【選項】——【顯示報表篩選頁】，單擊確定。

可以發(fā)現(xiàn)多出了很多sheet表，而且表格是以“銷售地”命名的，兼職太方便了耶，工作表都不需要創(chuàng)新命名了。

方法2： VBA方法

① 按下【Alt+F11】打開VBA窗口

② 插入模塊，輸入代碼

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列內(nèi)容

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工作表。

如下圖所示，可以發(fā)現(xiàn)sheet表格以銷售地名，進行了命名。

方法3： 插件法- 方方格子

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

下面分享方方格子官方給出的2個拆分案例（來自網(wǎng)絡，侵刪）。

①.按關鍵字進行拆分

如下圖，按水果名進行拆分，相同的水果名放在同一個表中。

② .按每N行拆分

一個工作簿拆分多個工作表方法有3種：

① 透視表方法

② VBA方法 

③ 插件法

各位親愛的讀者，你學會了嗎？

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