美文网首页
Excel表拆分:按筛选条件将一个表格拆分成独立的表格文件

Excel表拆分:按筛选条件将一个表格拆分成独立的表格文件

作者: 天行践 | 来源:发表于2022-01-13 14:51 被阅读0次

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

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

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

    第一阶段 拆分成多个sheet

    步骤1

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

    步骤2

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

    步骤3

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

    步骤4

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

    第二阶段 多个sheet拆分成多个表格文件

    步骤5

    把多个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

    开始执行按钮

    步骤6

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

    相关文章

      网友评论

          本文标题:Excel表拆分:按筛选条件将一个表格拆分成独立的表格文件

          本文链接:https://www.haomeiwen.com/subject/gxvncrtx.html