如何将一个表格根据查询条件拆分成多个独立的表格
需要注意的是要把被拆分文件放在一个单独的文件夹里,这样拆分的表格也会放在这里。
以下方法主要是采用两个步骤组合使用,第一步是把一个表拆分成多个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
所有文件将自动拆分,需要注意的是要把被拆分文件放在一个单独的文件夹里,如此拆分后的所有表格也都存放在这个文件夹里,方便我们查找和使用。
网友评论