Excel工作簿拆分技巧

大家请看范例图片，Excel工作簿包含多种工作表，现在按照工作表名称，单独拆分成新的工作簿。メ

メ传统做法，点击单个工作表——邮件——移动或复制。メ

メ勾选建立副本（不勾选该选项原工作簿的工作表将被剪切操作），选择新工作簿。メ

メExcel建立一个新工作簿。メ

メ通过另存为进行保存，命名，这种做法对于多个工作表拆分肯定不适用。メ

メ我们看看批量做法，在工作簿中直接按下ALT+F11，进入VBA设置。メ

メ点击插入——模块。メ

メ复制代码（注意红色字体部分）：メ

Sub 拆分工作簿()

Dim mybook As Workbook

Dim i As Integer

Set mybook = ActiveWorkbook

For i = 1 To mybook.Worksheets.Count

mybook.Worksheets(i).Copy

ActiveWorkbook.SaveAs Filename:="C:\Users\john\Desktop\素材\" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub

メ然后我们将想拆分保存文件的路径复制一下。メ

メ路径粘贴替换刚才代码的字符串（红色字体）“C:\Users\john\Desktop\素材”。メ

メ点击执行，F5。メ

メ短暂卡顿，工作表拆分瞬间完成，按照工作表的名称命名，简单轻松。メ