不少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
工作也可以这么简单。