如何将一个工作簿中的多个工作表拆分

liusy202020

求助：如何将一个工作簿中的多个工作表按照每个表中的字段拆分成多个工作簿，且每个工作簿里面对应的工作表名称和原工作簿的里面的工作表名称保持一致。
例如： 图片中的工作簿中包含了5个工作表，现在要将这5个工作表都按照D列区域字段拆分成8个工作簿，然后每个新工作簿中就只包含了每个区域的数据，同时新工作簿中也要5个子工作表且工作表的名称和原工作簿保持一致。

isdkz

可以使用VBA宏来实现这个功能。

首先需要打开Visual Basic编辑器，在工程资源管理器中右键点击该工作簿，选择插入->模块，然后在模块中输入以下代码：

1. Sub SplitWorkbook()
2.     Dim wb As Workbook
3.     Dim ws As Worksheet
4.     Dim newWB As Workbook
5.     Dim newWS As Worksheet
6.     Dim lastRow As Long
7.     Dim i As Long
8.    
9.     Set wb = ThisWorkbook
10.    
11.     For Each ws In wb.Worksheets
12.         lastRow = ws.Cells(Rows.Count, "D").End(xlUp).Row
13.         For i = 2 To lastRow
14.             ' Check if new workbook needs to be created
15.             If newWB Is Nothing Or ws.Cells(i, "D").Value <> newWS.Cells(2, "D").Value Then
16.                 ' Create new workbook and copy worksheet
17.                 Set newWB = Workbooks.Add
18.                 ws.Copy Before:=newWB.Worksheets(1)
19.                 Set newWS = newWB.Worksheets(1)
20.                 newWS.Name = ws.Cells(i, "D").Value
21.             End If
22.             
23.             ' Copy row to new worksheet
24.             ws.Rows(i).Copy newWS.Rows(newWS.Cells(Rows.Count, "A").End(xlUp).Row + 1)
25.         Next i
26.         
27.         ' Save new workbook
28.         newWB.SaveAs Filename:=wb.Path & "" & ws.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
29.         newWB.Close SaveChanges:=False
30.         Set newWB = Nothing
31.     Next ws
32. End Sub

复制代码

然后在工作簿中按下Alt+F8，选择SplitWorkbook，并点击运行。

这个宏会遍历每个工作表，然后按照D列区域字段将每个工作表拆分成多个工作簿，每个新工作簿中包含了每个区域的数据，同时新工作簿中也有5个子工作表且工作表的名称和原工作簿保持一致。最后每个新工作簿都会保存在原工作簿的同一目录下。

isdkz

要实现这个需求，我们可以使用Python的pandas库和openpyxl库。Pandas用于处理和操作数据，而openpyxl则用于操作Excel文件。以下是具体的步骤：

首先，安装所需的库。在你的Python环境中，运行以下命令安装pandas和openpyxl：

1. pip install pandas openpyxl
   

复制代码

然后，这是一个简单的Python脚本，它将读取你的Excel工作簿，按照D列的区域字段拆分工作表，然后将每个区域的数据写入新的工作簿。

1. import pandas as pd
   
2. import os
   
3. 
   
4. # 读取Excel文件
   
5. xlsx = pd.ExcelFile('your_file.xlsx')
   
6. 
   
7. # 从Excel文件中获取工作表的名称
   
8. sheet_names = xlsx.sheet_names
   
9. 
   
10. # 创建一个字典来存储每个区域的DataFrame
    
11. dfs_dict = {}
    
12. 
    
13. for sheet_name in sheet_names:
    
14.     # 读取工作表中的数据
    
15.     df = xlsx.parse(sheet_name)
    
16.    
    
17.     # 获取区域列表
    
18.     regions = df['D'].unique()
    
19. 
    
20.     for region in regions:
    
21.         # 根据区域拆分DataFrame
    
22.         df_region = df[df['D'] == region]
    
23.         
    
24.         # 将拆分后的DataFrame存储到字典中
    
25.         if region not in dfs_dict:
    
26.             dfs_dict[region] = {sheet_name: df_region}
    
27.         else:
    
28.             dfs_dict[region][sheet_name] = df_region
    
29. 
    
30. # 根据字典创建新的Excel文件
    
31. for region, dfs in dfs_dict.items():
    
32.     # 创建Excel写入器
    
33.     writer = pd.ExcelWriter(f'{region}.xlsx', engine='openpyxl')
    
34. 
    
35.     for sheet_name, df in dfs.items():
    
36.         # 将DataFrame写入Excel文件
    
37.         df.to_excel(writer, sheet_name=sheet_name, index=False)
    
38. 
    
39.     # 保存Excel文件
    
40.     writer.save()
    

复制代码

以上脚本假设你的Excel文件名为 'your_file.xlsx'，并且你要根据的区域字段位于列 'D'。如果实际情况不同，需要修改对应的部分。同样，生成的新工作簿将以区域名命名，保存在Python脚本相同的目录下。

在运行此脚本之前，确保你的Python环境有足够的权限访问和修改这个目录。

wp231957

isdkz 发表于 2023-5-11 09:15
可以使用VBA宏来实现这个功能。

首先需要打开Visual Basic编辑器，在工程资源管理器中右键点击该工作簿， ...

python一样能实现，不过你这个明显是ai