如何将含多个sheet的excel按照一列拆分成N个含多个sheet的excel文件？

Posted 2023-04-16

举例，一个excel文件123.xlsx，含有sheet1，sheet2，sheet3，sheet4，这几个sheet都含有一列学校名称，我想要按照学校名称拆分文件，最后拆成N个excel文件，每个excel文件里都含有sheet1，sheet2，sheet3，sheet4。请问如何拆分？谢谢

将含多个工作表的Excel文件按照每个工作表的一列拆分成多个Excel文件，有两种方法：
第一种方法：利用编程工具，自己编写代码处理；
第二种方法：利用WPS表格的拆分功能将每个工作表拆分成多个Excel文件后，再利用合并表格功能将拆分后的Sheet1、Sheet2、Sheet3、Sheet4进行多次合并操作。追问

我要拆分的文件可能有200个，合并操作也可以批量进行吗？

追答

如果用WPS的拆分和合并功能的话，拆分需要做4次，合并4个工作表一个文件则是做，拆分后得到的数量除以四的次数（WPS需要会员才能用此功能）。
如果是用VBA或其他编程的话，那么可以一次搞定，不过很少有人会免费帮忙处理的

参考技术A 这个可以用VBA代码来解决的。需要确认一下你的具体数据数据内容。
前两天刚好给人写了一个根据一列数据内容拆分到不同的工作表里边的代码。按照内容每种创建一个工作表并把相应数据写入进去。追问

我的具体数据内容大致是
sheet1：学校名称，学生姓名，变量1，变量2
sheet2：学校名称，学生姓名，变量3，变量4
sheet3：学校名称，学生姓名，变量5，变量6
sheet4：学校名称，学生姓名，变量7，变量8
按照学校名称拆分，学校大致有200个

追答

这个可以做。需要原表样表。必要可私信

参考技术B

123.xlsx放在一个文件夹，打开123.xlsx，右键点击sheet1，选择查看代码，粘贴上代码，点击绿色三角运行

Private Sub 分拆工作表()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub

追问

这个是只拆分了sheet1的吧？如果sheet1，Sheet2、Sheet3、Sheet4一起拆分要怎么做呢？

追答

这个就是拆份工作薄中的工作表的

参考技术C 可通过写代码实现，先搜集所有学校名称，然后按每个学校筛选出对应的数据，存对应的excel

Matlab中tabel如何按照日期列拆分

将一组数据读入Matlab，如图所示，日期为2016/3/16到2016/3/18，每个日期都包含了若干个数据，如何将其按照日期拆分呢，即每一天拆分为一个表。图片只是例子，我有一万多个数据，一百多天谢谢

直接通过matlab中主页选项框内的导入数据来导入你所有数据，并且输出类型设为字符串数组DateMap。我认为你第一列为日期，Date=unique(DateMap(:,1));
for i=1:size(Date,1)
A=DateMap(DateMap(:,1)==Date(i),:);
xlswrite("Date.xlsx",A,['Date' num2str(i)],"A1");
end
纯脑补，希望没有错，你试一下，望采纳 参考技术A 设整个table变量为a,第一列变量名称为t
拆分后的变量为aa
aa=a(isbetween(a.t,datetime(2016/3/16),datetime(2016/3/18)),:);