快速批量另存存工作表

不少Excel用户都遇到过这样的场景，一个工作簿中有N多个工作表，经常需要把全部（或者还多个）工作表单独另存为Excel文件，然后可能邮件发送个不同部门。操作步骤如下：

1. 选择工作表
2. 选中全部单元格
3. 拷贝
4. 新建工作簿文件
5. 粘贴（假设不需要格式调整，省略N步）
6. 保存工作簿

这个操作并不复杂嘛！没错，如果老板告诉你，有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

工作也可以这么简单。