随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA将多工作表拆分成多工作簿？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub将多工作表拆分成同路径下多工作簿()App盟敢势袂lication.ScreenUpdat足毂忍珩ing=FalseDimppathAsString,dirname,acbookAsString,YAsString,tempAsString,iAsInteger,timesstimess=Timer'获取当前时间ppath=ActiveWorkbook.Path'设定路径为当前工作簿路径acbook=ActiveWorkbook.NameFori=1ToSheets.CountIfWorksheetFunction.CountA(Sheets(i).Range("1:1048576"))<>0Thentemp=temp&Sheets(i).Name&".xlsx"&Chr(10)Workbooks(acbook).Activate'激活当前工作簿Y=Sheets(i).Name&".xlsx"'新工作簿名称设定为本工作表名称Workbooks.Add'新增工作簿ActiveWorkbook.SaveAsFilename:=ppath&"\"&Y'保存工作簿到当前路径下Workbooks(acbook).Activate'激活工作簿Sheets(i).Copybefore:=Workbooks(Y).Sheets(1)'不为空的工作表复制到新工作簿Workbooks(Y).Save'保存新工作簿Workbooks(Y).Close'关闭新工作簿EndIfNexti'继续下一工作表拆分Application.ScreenUpdating=TrueMsgBox"拆分完成!！"&Chr(10)&"全程历时："&Timer-timess&"秒！"&Chr(10)_&"程序即将打开该文件夹，请查看！"&Chr(10)&"已生成的工作簿名为:"&Chr(10)&temp,vbOKOnly+64,"提示"ActiveWorkbook.FollowHyperlinkAddress:=ThisWorkbook.Path,NewWindow:=TrueEndSub
5、用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序首先弹出提示对话框，如图
