工作中,我们经常习惯性的把一整年的销售数据做在一张工作簿中,有一天因为工作需要,老板要求把每个月的销售数据单独提出来,如果一个一个重复的复制太繁琐,浪费时间,那么有没有办法通过代码来自动就可以把所有工作表单独拆分出来呢。答案时有的,应用EXCELVBA。
工具/原料
EXCEL2010
方法/步骤
1、1.打开需要处理的EXCEL文件
2、2.按alt+F11
3、3.插入一个模块
4、4.在模块中输入以下代码Sub拆分到工作簿()DimwkAsWorkbook,ss,kApplication.DisplayAlerts=False'表示不显示警告ForEachshtInWorkbooks("VBA拆分工作簿").SheetsSetwk=Workbooks.Add'添加一个EXCEL文件k=k+1Workbooks(1).Sheets(k).CopyWorkbooks(2).Sheets(1)'复制里面的内容ss=ThisWorkbook.Path&"\"&sht.Name&".xlsx"wk.SaveAsss'另存为EXCEL文件wk.Close'关闭NextApplication.DisplayAlerts=True'表示不恢复警告MsgBox"拆分工作簿完成!"EndSub
5、5.运行代码,点击上面的小三角
6、6.查看结果