举例,一个excel文件123.xlsx,含有sheet1,sheet2,sheet3,sheet4,这几个sheet都含有一列学校名称,我想要按照学校名称拆分文件,最后拆成N个excel文件,每个excel文件里都含有sheet1,sheet2,sheet3,sheet4。请问如何拆分?谢谢
第一种方法:利用编程工具,自己编写代码处理;
第二种方法:利用WPS表格的拆分功能将每个工作表拆分成多个Excel文件后,再利用合并表格功能将拆分后的Sheet1、Sheet2、Sheet3、Sheet4进行多次合并操作。追问
我要拆分的文件可能有200个,合并操作也可以批量进行吗?
追答如果用WPS的拆分和合并功能的话,拆分需要做4次,合并4个工作表一个文件则是做,拆分后得到的数量除以四的次数(WPS需要会员才能用此功能)。
如果是用VBA或其他编程的话,那么可以一次搞定,不过很少有人会免费帮忙处理的
前两天刚好给人写了一个根据一列数据内容拆分到不同的工作表里边的代码。按照内容每种创建一个工作表并把相应数据写入进去。追问
我的具体数据内容大致是
sheet1:学校名称,学生姓名,变量1,变量2
sheet2:学校名称,学生姓名,变量3,变量4
sheet3:学校名称,学生姓名,变量5,变量6
sheet4:学校名称,学生姓名,变量7,变量8
按照学校名称拆分,学校大致有200个
这个可以做。需要原表样表。必要可私信
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一起拆分要怎么做呢?
追答这个就是拆份工作薄中的工作表的