本文共 659 字，大约阅读时间需要 2 分钟。

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

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

这个操作并不复杂嘛！没错，如果老板告诉你，有100个工作表需要处理，每天都要做一遍，是否心中顿时飘过一万只某某马 …

STEP 1. 选中需要导出的工作表（一个 / 多个 / 全部）

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 wshEnd Sub

工作也可以这么简单。

转载地址：http://jbjl.baihongyu.com/