EXCEL将一个表格内的字表拆分为多个单独的表

一、将数据按供应商拆分为多个字表

新建数据透视表，去除分类汇总，按表格形式布局，然后在选项里选择显示报表筛选页，就可以按筛选条件自动拆分为多个字表

 

二、子表快速插入同一文字

按以下步骤操作：
1、首先同时选中所有Sheet—— 选择第1个sheet，按住Shift选最后一个sheet；
2、插入行——选中要插入行的位置，右键---插入---整行；
3、取消所有Sheet的选择——点击任意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