Excel如何拆分sheet（宏功能应用）

在运用Excel表格中，会出现将多个sheet需要分别变成一个单独的Excel表格，复制粘贴不仅费时，还会出现格式等问题，通过Excel中的宏应用可以轻松搞定

操作步骤：

1、确认WPS版本支持宏功能（灰色为不可用）

2、如WPS版本不支持宏功能可以下载vba插件，安装完成重启WPS即可

1. 附我用的WPS版本及vba插件网盘下载地址：

          链接：https://pan.baidu.com/s/1P3W1Tx6Wpn_VVVAfrccHYQ 提取码：v24q

3、点击宏，输入宏名（随便起个名字即可），宏的位置选择要拆分的工作薄，完成之后点击创建

4、在代码的位置输入下面相对应的代码，然后点击运行->运行子过程/用户窗体，等待拆分完毕即可

注：

       1、拆分出的文件位置会存放在母表的当前位置，如果sheet过多，建议另建一个单独文件夹，把母表单独放入，可以防止后续文件存放位置乱

               2、拆分是不要存在隐藏sheet，有隐藏会导出代码运行错误

Private Sub 分拆工作表()
       Dim sht As Worksheet
       Dim MyBook As Workbook
       Set MyBook = ActiveWorkbook
       For Each sht In MyBook.Sheets
           sht.Copy
           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub

5、拆分完成

 

 ------------- 有没有觉得很麻烦，教你一招一键搞定 -------------

      ------------ WPS会员，一键拆分，轻松搞定------------