工作中，很多小伙伴都会遇到一些需求，将一份Excel文档按照部门进行拆分，每个部门是一个单独的工作表。读者需要注意的是，多个工作表的拆分，始终在一个工作簿内操作。让我们一起通过Python来实现。

本例目标：根据指定的Excel文件按照部门拆分成多个工作表。

最终效果：按照部门生成工作表。

技术点：groupby()方法的使用，Excel的追加模式等。

代码编写方式：采用函数、面向过程方式编写。

接下来我们一起进行代码编写，通过3步搞定这个程序。

（1）按照部门进行分组DataFrame。

我们直接使用groupby()方法对部门列做分组，分组后的数据包含部门名称和分部门的DataFrame，避免了之前章节中的循环获取数据的办法。

groupby()方法使用如下所示。

#数据按部门划分为DataFrame.

grouped = df.groupby('department')

print(grouped.get_group('技术部'))

for name,group in df.groupby('department'):

print(name,group)

代码执行结果后，name值为人事部、技术部等，group为人事部、技术部对应的DataFrame。请读者自行测试验证。

（2）工作表的拆分。

通过下段代码演示工作表的拆分，源代码见example_split.py。

import pandas as pd

import os

curpath = os.path.dirname(__file__)

filename = os.path.join(curpath, 'example_merge.xlsx')

savefilename = os.path.join(curpath, 'example_merge_1.xlsx')

df=pd.read_excel(filename)

writer = pd.ExcelWriter(savefilename,engine='openpyxl', mode='a')

for name,group in df.groupby('department'):

group.to_excel(writer,name)

writer.save()

代码执行后生成example_merge_1.xlsx，文件内容如图所示。

VBA的实现

首先将工作表按照部门列进行排序，然后每一行判断是否是同一部门，如果不是同一部门则进行标题和内容的copy操作。源代码见example_split_vba.xlsm。

Option Explicit

Sub 拆分工作表()

Application.DisplayAlerts = False '不显示错误信息

Application.ScreenUpdating = False '不闪屏

Dim i As Integer

Dim sh As Worksheet

'删除汇总表之外的工作表

If Sheets.Count > 1 Then

For i = Worksheets.Count To 2 Step -1

Worksheets(i).Delete

Next i

End If

'对表中数据按照部门排序，然后按照部门拆分进新的工作表

Dim row As Integer

Dim n As Integer

row = Range("A" & Rows.Count).End(xlUp).row '计算一共需要处理的行号

If row > 1 Then

Range("a2:p" & row).Sort Range("m2"), xlAscending '对数据区域进行排序，不含标题

n = 2

For i = 2 To row

With Worksheets("汇总表") '指定活动工作表

If .Range("m" & i).Value <> .Range("m" & i + 1).Value Then '判断是否为同一部门

Worksheets.Add after:=Worksheets(Sheets.Count) '新建工作表

Set sh = Worksheets(Worksheets.Count) '指定工作表给变量

sh.Name = .Range("m" & i).Value '以部门命名工作表

.Range("a1:p1").Copy sh.Range("a1:p1") '复制标题到新建工作表中

.Range("a" & n & ":p" & i).Copy sh.Range("a2") '复制内容到工作表中

sh.Columns.AutoFit '设置自动列宽

n = i + 1

End If

End With

Next i

End If

Application.ScreenUpdating = True '恢复闪屏默认设置

Application.DisplayAlerts = True '恢复提示框默认设置

End Sub

代码执行结果如图所示，请读者自行测试验证。

两者对比，之所以Python代码少，是因为自身提供了强大的分组功能。

VBA中先通过部门排序，然后逐行判断。