如果想将一个工作簿中的所有工作表另存为一个个独立的工作簿，手工操作需要重复N次，表越多，重复的次数就越多。
解决重复工作的利器 —— 宏
我们对Excel的大部分操作过程可以被录制成宏代码，如果下一次需要执行相同的操作（即便数据变了，操作动作并没有变化），那么只需单击执行以前录好的宏，就可以自动完成整个过程。
如果动作要重复N多次，那么在代码中加入循环语句即可。
操作步骤
(1) 单击【开发工具】-【录制宏】，输入宏名，单击【确定】。
(2) 右击第1张工作表的标签，选择【移动或复制】-选择“新工作簿”，☑建立副本，单击【确定】，然后保存并关闭该新工作簿。
(3) 单击【开发工具】-【停止录制】。
(4) 单击【开发工具】→【宏】，选中刚刚录制的宏，单击【编辑】，你会看到下图类似的代码。
(5) 修改代码后如下图所示（不区分大小写）。
(6) 以后只要单击【开发工具】-【宏】，选中宏名，单击【执行】即可拆分所有工作表到新工作簿。
代码如下，可复制
Sub SplitShts()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:="D:\" & ActiveSheet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
Next
End Sub
【注意】代码中写的保存路径是「D:\\订单」，大家根据需要修改。录制了宏的工作簿保存时要选择文件类型为「启用宏的工作簿」。
以上介绍的是通过录制宏，对自动生成的宏代码稍作修改即可实现自动化处理。
如果有更进一步的需求，那就先学会VBA语法吧！想让Office自动执行什么，你都可以自己编出来。
閱讀更多 巽與之言 的文章
