不少Excel用户都遇到过这样的场景，一个工作簿中有N多个工作表，经常需要把全部（或者还多个）工作表单独另存为Excel文件，然后可能邮件发送个不同部门。操作步骤如下：
选择工作表选中全部单元格拷贝新建工作簿文件粘贴（假设不需要格式调整，省略N步）保存工作簿
这个操作并不复杂嘛！没错，如果老板告诉你，有100个工作表需要处理，每天都要做一遍，是否心中顿时飘过一万只某某马 … * 图片来自互联网，版权属于原作者 如果你还在手忙脚乱的选中多个工作表，直到手抽筋，请先移步这里：
如何选中多个工作表？
STEP 1. 选中需要导出的工作表（一个 / 多个 / 全部） STEP 2. 按下快捷键执行下面代码 STEP 3. 木有了 … （泡杯咖啡撩妹去吧）
Sub ExportSheets()
Dim wsh As Worksheet
Dim strPath As String
strPath = ThisWorkbook.Path & "\"
For Each wsh In ActiveWindow.SelectedSheets
wsh.Copy
With ActiveWorkbook
.SaveAs strPath & wsh.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close
End With
Next wsh
End Sub
工作也可以这么简单。