python拆分excel工作簿多个sheet（Excel中按列拆分万条数据，用

擅长多余的几万行怎么删擅长中按列拆分万条数据，用这串代码可以一键搞定，收藏备用

先来看看问题

如图，表中保存了许多数据，现需要按A列日期拆分到不同的工作簿中。

图一待拆分的数据

图2拆分所得的工作簿

图3拆分所得工作簿中的数据

解决办法

步骤1:在工作簿中按Alt F11打开VBE窗口，在VBE窗口中插入一个模块。

图四插入模块

步骤2:在插入的模块中写入下面的代码。

潜水艇拆分数据到工作簿()应用程序屏幕更新=False Dim Dic As Object，Irow As Long，i As Long，to folder As String Set Dic=CreateObject( ；脚本编写.dictionary)Irow=活动工作表.使用范围。行。文件夹计数=此工作簿.路径 \拆分结果如果Len(Dir(ToFolder，vbDirectory))=0，则MkDir ToFolder Dim日期作为工作表，ToSht作为工作表，arr作为变量，Icol作为长，细胞作为范围设置DateSht=活动工作表出错，转到er : Set Cel=Application .InputBox(prompt := ；要按哪列的信息拆分数据？请选择该列的任意一个单元格： Title:= 设置，Type:=8) Icol=Cel .细胞(1)。对于i=2，错误列转到0到Irow Dic(日期.细胞(I，Icol).Value)=DateSht .细胞(I，Icol).下次约会的价值。单元格(《XFD》).Value=DateSht .单元格(1，Icol).值arr=Dic .I=0至（油）密度指示控制器（Density Indicating Controller的缩写）的键之一项。日期。细胞(2，《XFD》).值=数组工作表10 .补充。Name=arr(i)设置为ht=活动表日期.范围( A1 ).当前区域。高级筛选操作：=xlFilterCopy，CriteriaRange:=DateSht .范围( XFD1:XFD2 )，CopyToRange:=ToSht .范围( A1 )ToSht .细胞。整列。自动适应sht .移动活动工作簿另存为文件名：=到文件夹 \ arr(I)和xlsx 活动工作簿.关闭下一个日期。列( XFD:XFD )。删除应用程序ScreenUpdating=True MsgBox 数据拆分完成，单击【确定】查看拆分结果 VB信息外壳和。探险家。exe 到文件夹 \ vbNormalFocuser:End Sub图5写入的代码

步骤3:返回擅长界面，执行这个过程，就能自动完成数据拆分任务了。

图5执行代码拆分数据

我是叶枫，感谢你的阅读。

点击下面的 了解更多 可以观看演示视频。

擅长按照分隔符拆分万条记录擅长表格工作表一和工作表2怎么拆分