如何在Excel中根据客户名称将销售数据表快速拆分成多个独立的「分成表」文件？

问题描述

精选答案

怎样才能在Excel里依据客户名称把销售数据表迅速拆成多个独立的「分成表」文件呢？

方法一：使用VBA宏代码

如果你熟悉VBA编程，这是一个高效的办法。以下是具体步骤：

1. 打开包含销售数据的Excel文件。
2. 按下“Alt+F11”组合键，打开VBA编辑器。
3. 在VBA编辑器中，点击“插入”->“模块”，然后在模块窗口中粘贴以下代码：

vba
复制
SubSplitDataByCustomer()

DimwsAsWorksheet

DimlastRowAsLong

DimiAsLong

DimcustomerNameAsString

DimnewWBAsWorkbook

DimsavePathAsString



'设置当前工作表

Setws=ThisWorkbook.ActiveSheet

'获取数据的最后一行

lastRow=ws.Cells(ws.Rows.Count,1).End(xlUp).Row



'循环遍历每一行数据

Fori=2TolastRow

'获取客户名称

customerName=ws.Cells(i,1).Value

'创建新工作簿

SetnewWB=Workbooks.Add

'复制当前行数据到新工作簿

ws.Rows(i).CopynewWB.Sheets(1).Rows(1)

'设置保存路径和文件名

savePath=ThisWorkbook.Path&"\"&customerName&".xlsx"

'保存新工作簿

newWB.SaveAsFilename:=savePath

'关闭新工作簿

newWB.CloseSaveChanges:=False

Nexti

EndSub

4. 代码中的第一列默认为客户名称列，你可根据实际情况修改。
5. 按下“F5”键运行代码，Excel会根据客户名称自动拆分数据并保存为独立文件。

方法二：使用筛选功能手动拆分

如果数据量不大，手动拆分也是可行的。

1. 打开销售数据表，选中数据区域。
2. 点击“数据”选项卡中的“筛选”按钮，在客户名称列的筛选下拉框中，依次选择不同的客户名称。
3. 选中筛选出的数据，复制并粘贴到新的工作表中。
4. 将新工作表另存为独立文件，文件名可设置为对应的客户名称。
5. 重复步骤2-4，直到所有客户的数据都拆分完成。

方法三：使用PowerQuery（Excel2016及以上版本）

PowerQuery提供了强大的数据处理功能。

1. 选中销售数据表，点击“数据”选项卡中的“从表格/区域”，在弹出的对话框中点击“确定”，进入PowerQuery编辑器。
2. 在PowerQuery编辑器中，点击客户名称列的筛选按钮，选择“将此列拆分为行”。
3. 点击“主页”选项卡中的“分组依据”，在弹出的对话框中选择客户名称列作为分组依据。
4. 点击“添加列”选项卡中的“自定义列”，在公式框中输入“=Table.SelectRows(#"分组的行",each=)”（假设客户名称列名为“客户名称”）。
5. 点击“主页”选项卡中的“关闭并上载”，选择“将每个表加载到不同的工作表”。
6. 打开每个工作表，将其另存为独立文件。