如何将一个表格根据查询条件拆分成多个独立的表格

需要注意的是要把被拆分文件放在一个单独的文件夹里，这样拆分的表格也会放在这里。

以下方法主要是采用两个步骤组合使用，第一步是把一个表拆分成多个sheet表，第二步是把多个sheet表拆分成独立的表格文件。

选中报表里的数据区域（是选中区域，而不是直接选用整个列或者行），然后点击【数据】-【来自表格/区域】，进入Power Query

在Power Query界面，选择需要拆分依据的条件做筛选，比如用营销中心

筛选条件后，将结果表复制，具体在左侧的导航栏里复制原表，新表命名拆分后的文件名，比如安徽的；依次重复上述操作，每次先选条件，然后复制表，再重命名

完成筛选和文件命名后，点击左上角的【关闭并上载】，返回原表格时会自动出现所有文件名的sheet表，比如按照省份命名的各个sheet表名字。

把多个sheet拆分成多个表格文件

点击任意一个sheet，然后鼠标邮件选择【查看代码】-【模块】

在模块里复制下面的代码，并点击执行按钮，位置在调试下面的绿色三角形

Sub slip()

    Dim sht As Worksheet, folder As String

    folder = ThisWorkbook.Path

    Application.DisplayAlerts = False

    For Each sht In Worksheets

        sht.Copy

        ActiveSheet.Name = "sheet1"

        ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"

        ActiveWorkbook.Close

    Next

    Application.DisplayAlerts = True

End Sub

所有文件将自动拆分，需要注意的是要把被拆分文件放在一个单独的文件夹里，如此拆分后的所有表格也都存放在这个文件夹里，方便我们查找和使用。