举例,一个excel文件123.xlsx,含有sheet1,sheet2,sheet3,sheet4,这几个sheet都含有一列学校名称,我想要按照学校名称拆分文件,最后拆成N个excel文件,每个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一起拆分要怎么做呢?
追答这个就是拆份工作薄中的工作表的